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TELEPHONE COMPANY AND FCC REQUIREMENTS 

AND RESPONSIBILITIES 

FCC regulations require that you provide your local telephone company busi- 
ness office with the following information before you connect DECtalk to the 
telephone network. 


e The particular lines(s) to which terminal equipment will be connected 
(by telephone number) 


e The make, model number, and FCC registration number (label on bottom 
of unit) 


e The ringer equivalence for the registered terminal equipment (label on 
bottom of unit) 


e The type of jack needed (if not already installed) 


Make: DECtalk 

Model: DTC01-AA 

FCC Registration: AO994Q-12463-OT-E 

Ringer equivalence: 0.3B 

Туре of jack: USOC RJ11C or USOC RJXA1 for telephone line interference 
(See the DECtalk DTCO!1 Installation Manual.) 


You must also notify the telephone company when you permanently disconnect 
terminal equipment from telephone line(s). 


You may not connect terminal equipment to a party line or coin-operated 
telephone equipment. 


If the telephone or telephone line is already equipped with a jack you should be 
able to plug in DECtalk without any additional telephone company charge. 
Otherwise, the telephone company will install a jack, which usually results in a 
one-time installation charge. 


If terminal equipment damages the telephone network, the telephone company 
can, after notifying the customer, temporarily discontinue service. However, 
when prior notice is not practical, the telephone company can temporarily 
discontinue service immediately. In such cases, the telephone company shall: 


e Promptly notify customers that service has been discontinued 
e Give customers the opportunity to correct the situation 


e Inform customers of their right to bring a complaint to the FCC according 
to Subpart E of Part 68 of FCC Telephone Equipment Rules. 


The DECtalk ОТСО1 unit is classified as terminal equipment. 
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CANADIAN APPLICATION NOTICE 

The Canadian Department of Communications label identifies certified equip- 
ment. This certification means that the equipment meets certain telecommuni- 
cations network protective, operational, and safety requirements. The depart- 
ment does not guarantee the equipment will operate to the user's satisfaction. 


Before you install this equipment, make sure it is permissible to be connected 
to the local telecommunications company's facilities. You must also install the 
equipment by using an approved connection method. In some cases, the com- 
pany's inside wiring associated with single line individual service can be 
extended by a certified jack/plug/cord ensemble (telephone extension сога). 
Be aware that complying with the above conditions may not prevent degrada- 
tion of service in some situations. Telecommunications company requirements 
do not allow you to connect their equipment to customer-provided jacks, 
except where specified by individual telecommunications company tariffs. 


Only authorized Canadian maintenance facilities, designated by the supplier, 
should repair certified equipment. If you repair or alter certified equipment 
yourself, or if the equipment malfunctions, the telecommunications company 
has cause to ask you to disconnect the equipment. 


You should ensure (for your own protection) that the electrical ground connec- 
tions for the power utility, telephone lines, and internal metallic water pipe 
system, if present, are connected together. This precaution may be particularly 
important in rural areas. 


CAUTION: Do not try to make such connections yourself, but contact the 
appropriate electric inspection authority or electrician. 
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INTRODUCTION 


This manual describes how to use DECtalk with a host computer. The text 
explains the escape sequences you can use with DECtalk. 


Terminals display information from a computer on a screen or paper; they 
provide communication with computers through the sense of sight. DECtalk 
speaks information from a computer in an English-language voice; it provides 
communication with computers through the sense of hearing. 


The DECtalk DTCO1 Owner's Manual (EK-DTCO1-OM) describes how to use 
DECtalk connected to a terminal. This manual describes how to use DECtalk 
connected to a host computer. 


Chapter 1 describes how DECtalk can communicate with a host computer 
through computer application programs. The chapter also describes some 
guidelines for writing applications. 


Chapter 2 describes the setup escape sequences that initialize and control the 
DECtalk environment. 


Chapter 3 describes how to use voice commands, send phonemic text to 
DECtalk, and load the user dictionary. 


Chapter 4 describes how DECtalk works when connected to a telephone 
network. 


xi 
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xii INTRODUCTION 
Chapter 5 describes the maintenance and debugging commands used to test 
DECtalk. 


Chapter 6 provides a detailed application program written in C programming 
language. You can copy this program. 


Chapter 7 provides a sample program written in BASIC-PLUS programming 
language. You can copy this program. 


The appendices summarize the DECtalk escape sequences, the phonemic 
alphabet used, and the other available DECtalk documentation. 
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HOW DECtalk 
PROGRAMMING WORKS 








This chapter gives you an overview of DECtalk programming. The chapter has 
four major sections. 


e “Communicating with DECtalk" describes the types of data DECtalk can 
receive and the operating modes DECtalk uses. 





e "Escape Sequences and Control Characters" explains the basic format 
for entering commands with escape sequences. This section includes a 
table of the control characters that DECtalk recognizes. 





e "DECtalk-Computer Communication" lists some special rules DECtalk 


Р follows when processing text. This section describes how escape 
| sequences affect the flow of information between DECtalk, a local termi- 
TD nal, and a computer. The section also describes data synchronization. 

e "Developing Your Application” provides some guidelines for writing appli- 


peres cation dialog and encoding your program. 








2 HOW DECtalk PROGRAMMING WORKS 


COMMUNICATING WITH DECtalk 
DECtalk is an intelligent peripheral device, so the following guidelines apply. 


e You cannot program DECtalk directly. After the initial power-up opera- 
tions, DECtalk is controlled through a terminal or host computer. 


e DECtalk is easy to control, because the internal DECtalk processor is 
sophisticated enough to process complex operations with simple 
commands. 


e You can select DECtalk’s operating characteristics and have DECtalk 
answer questions (from the host computer) about its status. DECtalk can 
also inform the host computer of status changes. For example, DECtalk 
can tell the host computer if a connected telephone has rung. 


e DECtalk memory can store some information. For example, DECtalk has 
an extensive built-in pronunciation dictionary. You can load a user- 
defined dictionary under computer control. 


The following paragraphs describe how DECtalk sends and receives informa- 
tion from the host computer. 


Types Of Data 
DECtalk can receive two types of data through its communications connector, 
text and commands. 


Text is data that DECtalk will speak. Text consists of English-language 
sentences, phonemically spelled text, or a combination of both. 


Commands are instructions to perform an action. Commands are not spoken 
by DECtalk. 


There are two ways to send commands - with escape sequences or with 
square brackets []. Some commands you can only send with escape 
sequences, and some commands you can send both ways. 


Escape sequences start with an ESC character, followed by a string of ASCII 
characters. DECtalk interprets the string as a special command. This manual 
describes the escape sequence method of sending commands. 


Square bracket [] commands let you include speech commands and phonemic 
text with text information, if MODE SQUARE is on. 
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The “Mode Selection" section in Chapter 2 describes MODE SQUARE. The 
DECtalk DTCO1 Owner's Manual describes square bracket commands and 
syntax. 


Appendix B summarizes both command methods. Figure 1-1 shows the rela- 
tionship between terminal commands and host commands. This chapter pro- 
vides more information on escape sequence conventions and format. 





| SETUP» SET LOG PHONEME ON 


DECtalk 


MA-7590-83 


Figure 1-1 DECtalk, Terminal, and Host Communications 
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4 HOW DECtalk PROGRAMMING WORKS 


Operating Modes 
DECtalk has three operating modes: setup, off-line, and on-line. 


You use setup mode to select the operating parameters of DECtalk, such as 
communication line characteristics and phonemic representation. 


You use off-line mode when DECtalk is connected to a terminal. The DECtalk 
DTCO01 Owner's Manual describes off-line mode. 


You use on-line mode when DECtalk is connected to a host computer. Com- 
mands must be sent as escape sequences from the host computer. 


DECtalk powers up in on-line mode. When you connect DECtalk to a terminal 
for local use, you must switch DECtalk to off-line mode; press the BREAK key 
to enter setup mode, then select the off-line setting. 


USING ESCAPE SEQUENCES AND CONTROL CHARACTERS 
This section describes the general syntax of escape sequences, and how to 
use them with DECtalk. 


Escape Sequences 
In setup mode, you can enter commands directly to DECtalk through the 
terminal. 


When DECtalk is on-line, you can enter most setup commands plus other on- 
line commands; however the commands come from the computer instead of 
the terminal. For example, you can only load the user-defined dictionary while 
on-line. 


On-line and setup commands act the same, but they have different formats. 
For example, the user command 


SETUP>SET LOG PHONEME ON 
is sent from a computer as an escape sequence 
ESCP0;81;2z ЕС \ 


You сап omit parameters with a value of 0 (ASCII). For example, you could 
send the above sequence as ESC P;81;2z ESC \. DECtalk does not send 
parameters with a value of 0 in its reply sequences. 


NOTE: Escape sequences in this manual are spaced for clarity only. Spaces 
are not part of the actual escape sequences. 
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mm DECtalk escape sequences have the following characteristics. 
1. They begin with an ESC character. 
l 2. The ESC character is followed by ASCII characters that define the 
command. 


3. Every character in the command is important. You must enter the exact 
cmn characters shown. For example, in the command above, the semicolons 
AE are part of the command. The letter z is lowercase; an uppercase Z has 

no meaning to DECtalk. 









4. Programming standards require that you end some commands with a 
sequence terminator - ESC X. This manual includes ESC \ with all com- 
mands that require it. 





5. Escape sequences only work on the DECtalk host line. This is different 
from most terminals, which can interpret typed escape sequences. 





The ESC character plus the ASCII characters are like a compressed version of 
the off-line commands. Figure 1-2 shows the meaning of each part of a typical 
escape sequence. 





E s DECtalk ignores invalid sequences and commands. 


BEGINNING OF ESCAPE SEQUENCE 
DECtalk COMMAND 

SET LOG 

PHONEME ON 


DECtalk COMMAND TERMINATOR 
| x END OF ESCAPE SEQUENCE 


ESC РО : 81 ; 22 ESC\ 





DELIMITER 





MA-7591A-83 


Figure 1-2 Typical Escape Sequence Format 





6 HOW DECtalk PROGRAMMING WORKS 


Escape Sequence Format 

The following chapters describe the specific escape sequences used with 
DECtalk. This manual includes the following information with all escape 
sequences (Figure 1-3). 


Mnemonic 

ASCII characters 
Parameters 
Decimal value 


NOTE: Since DECtalk suppresses parameters with a value of 0, DECtalk 
would send ESC P ; 31 ; РЗ Z ESC \ for the sequence in Figure 1-3 (assuming 
РЗ is not 0). If P3 is 0, DECtalk would send ESC Р ; 31 ; z ESC \. 


The mnemonic is a unique name (such as DT_INDEX) used to identify the 
escape sequence. Mnemonics do not have any direct programming signifi- 
cance; that is, DECtalk does not recognize a mnemonic name as a valid escape 
sequence. However, when you refer to escape sequences by mnemonic in 
program documentation and program variables, it simplifies editing and 
debugging. 


The program examples in Chapter 6 use mnemonics for the appropriate 
escape sequences. The header file DECTLK.H in Chapter 6 defines all DECtalk 
command mnemonics. 


DT_.QUERY__ REPLY (ESCAPE SEQUENCE MNEMONIC) 


ESCAPE CHARACTER 

ASCII CHARACTER P 

ASCII CHARACTER ZERO 

ASCII CHARACTER ; 

ASCII CHARACTER 3 

ASCII CHARACTER 1 (NOT LOWERCASE L) 
DELIMITER 

PARAMETER 

DECtalk COMMAND TERMINATOR 

END OF ESCAPE SEQUENCE 





ESC P 0 Я З 1 ; РЗ 2 ESC N (ASCII REPRESENTATION) 
027 080 048 059 051 049 079 EB 027 092 (DECIMAL VALUE) 


INDICATES VARIABLE VALUE 


MA-7592A-83 


Figure 1-3 Escape Sequence Representations 
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The ASCII characters are the actual characters to use. The “Escape 
Sequences” section in this chapter gives an example of an escape sequence in 
ASCII format. The escape character is represented by ESC in all sequences. 
The numbers that appear are actual ASCII characters, not numeric values. 


Parameters appear in escape sequences that can cause several DECtalk 
actions. These different actions depend on parameter values. 


Parameters are represented in this manual by a capital P followed by a number 
or letter. Parameters are always sent to DECtalk as a decimal number, in ASCII 
format. 


An empty parameter is treated like a parameter with a value of 0. The 
sequences ESC P ; z апа ESC P 0; 0 z are identical. DECtalk always sends а 0 
parameter as an empty string. However, the 0 parameters are always shown 
as explicit zeros in examples. 


This manual lists possible parameter values in tables. There are two methods 
used to show parameter values. 


1. Usually the ASCII character(s) appears (with the decimal value under- 
neath as a check). Use the ASCII character(s) in the escape sequence. 


2. Sometimes only a numeric value appears. You must convert the numeric 
value to a sequence of ASCII characters for the escape sequence. 


The decimal value of each escape sequence character appears directly under 
the character, so you can verify the sequence characters. Parameters are 
marked with asterisks (***), indicating that the value is variable. 


Chapter 2 provides complete tables of all ASCII characters and their decimal, 
octal, and hexidecimal equivalents. 


Figure 1-3 shows all the parts of an escape sequence. 


Control Characters 

Some control characters (such as carriage return and backspace) have special 
meanings. Table 1-1 lists the control characters that DECtalk recognizes. 
. DECtalk ignores any other control characters. 
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Control Character Logging 

Version 2.0 of DECtalk firmware improves control character logging. Before 
version 2.0, some control characters were not correctly logged. In particular, 
the CTRL-K (clause flush) control character sequence (generated internally by 
DECtalk), was not logged unless DECtalk received text from the host in 5 


seconds. If a heavily loaded system was slow to respond, DECtalk might not 
log the current event. 


For example, suppose the host system stopped sending data in the middle of a 
phonemic text string or an escape sequence. DECtalk would execute a time- 
out, exit phonemic text mode (or ignore the escape sequence), and fail to log 
the event. The result was problems for the application developer in tracking 
control character logs. 


NOTE: You should enable LOG. .INHOST or LOG. RAWHOST to ensure the 
proper logging of all characters. See “Local Log Control (DT. 1.06)” in Chap- 
ter 5 for more information on control character logging. 


Effect of the Backspace (BS) Character 
If DECtalk finds the backspace character in a word, DECtalk modifies the word 
according to the hierarchy of the characters involved, as follows. 


1. letters and digits 
2. punctuation 
3. underline character 


The BS character allows DECtalk to process text containing overstrikes and 
underlining. 


Here are several examples of DECtalk's processing (spaced for clarity). 


Input Pronounced as 
a BS _ a 
- BS а a 
a BS b b 
ab BS BS de de 
a BS " a 


a BS " BS _ a 
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DECtalk-COMPUTER COMMUNICATION 

Programming DECtalk is similar to programming a smart terminal (such as a 
VT220). That is, DECtalk and the host computer must exchange information 
according to fixed rules. 


DECtalk does not process text until reaching a valid clause boundary. Clause 
boundaries mark the end of phrases or sentences. DECtalk recognizes the 
following clause boundaries. 


e А period, comma, exclamation point, or question mark is a valid bounda- 
ry. If a period is used, DECtalk checks the characters after the period 
(because periods do not always mean the end of a sentence). 


e A full buffer also acts as a boundary. If DECtalk's temporary buffer begins 
to approach its fill limit (at about 12 words), DECtalk begins speaking 
what is in the buffer and treats the last word as a clause boundary. 


e А timeout is another boundary. If nothing is sent to DECtalk within 5 
seconds and there is text in the buffer, then DECtalk speaks all text in the 
buffer as though a comma had been sent with the text. 


Escape sequences represent (1) commands sent from the host to DECtalk, and 
(2) status replies sent from DECtalk to the host. All escape sequences begin 
with the ESC character; a sequence ends when the last character required for 
that sequence is sent. Do not use a carriage return or any other normal 
terminating character to terminate an escape sequence. 


Figure 1-4 shows the data paths in DECtalk, as follows. 


1. The DECtalk unit is in the center of the figure. The speech processor is 
part of the DECtalk unit, but is shown as a separate module. 


2. Arrows show the direction of information flow. Notice that information 
flows from the terminal (or telephone) to the host, and from the host to the 
terminal (or telephone). However, information only goes to the speech 
processor from the host or terminal. Information from the speech proces- 
sor is sent to the telephone or speaker. 


3. Each DECtalk escape sequence affects the flow of information within 
particular data paths. The switches within the data paths represent the 
points at which the escape sequences act. For example, the DT. STOP 
escape sequence affects the data flow from the host to the speech 


processor. 
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Figure 1-4 DECtalk-Computer Program Interaction 





. Since there are a large number of commands and parameters, they are 
grouped in boxes under the diagram. 


5. Some commands have parameters (sometimes called arguments). Figure 
1-4 shows commands and their parameters. The parameters (if any) 
appear after a colon (:) mark. 





There are many ways to control and use DECtalk when connected to a host 
computer. The rest of this chapter and the sample program in Chapter 6 
describe a general programming method for DECtalk. If you are writing a 
control program for DECtalk, remember that your application and needs may 
pem not match the descriptions that follow exactly. 
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DECtalk Setups 
The controlling program first configures DECtalk to ensure that all parameters 
are set correctly. Use these steps in your program. 


1. Programs may wish to send a “What аге you?" sequence to make sure 
DECtalk is available. DECtalk replies with a code correctly identifying 
DECtalk. 


The "Device Attribute Request” section in Chapter 5 describes ‘‘What are 
you?" sequences. 


2. Send setup commands to configure DECtalk for host-DECtalk communi- 
cation. The required setup commands vary from computer to computer 
and from application to application; however, here are some commands 
to consider. 


a. Include any required communication command (such as 7-bit or 8-bit 
codes, and code interpretation. See “Selecting ASCII Character Sets" 
in Chapter 2. 


b. Set MODE SQUARE on (if desired). This command ensures that pho- 
nemic code values are accepted. See “Моде Selection” in Chapter 2. 


c. If you connect DECtalk to the public telephone network, select the 
correct telephone handling parameters. See Chapter 4 for these 
parameters. 


3. You may have to set up the host computer (or DECtalk communication 
line) for DECtalk commands. You must set up the computer for single- 
character, unsolicited input, and operating system XON/XOFF 
processing. 


Setting up computers is beyond the scope of this manual; however, Chap- 
ter 6 has examples of setting up certain Digital Equipment Corporation 
computers for DECtalk. 


If your host computer cannot support single-character processing, you 
can use the DT. MASK escape sequence to permit line-at-a-time 
processing. See "Keypad Mask Command (DT. MASK)' in Chapter 5. 


4. Other commands depend on the DECtalk environment, such as debug- 
ging commands or special text-to-speech commands. 
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Program Control 

DECtalk is primarily a speech device; its internal code is directed towards 
producing artificial speech. DECtalk assumes the host computer will handle 
most of the necessary control operations (such as waiting for task completion 
and requests for status). 


The host is responsible for control and coordination, but this is not a major 
task. The rest of this chapter describes areas you should consider when 
designing the DECtalk program application. 


Data Synchronization 

DECtalk's speech rate is much lower than the (potential) data transfer rate on 
the host communication line. DECtalk sends an XOFF character (CTRL-S) to 
the host when its input buffer is almost full, to signal that any more input will be 
discarded. When DECtalk’s input buffer is almost empty, it sends ап XON 
character (CTRL-Q); XON tells the host to start sending data again. 


The DECtalk input buffer is large enough so that the host can continue sending 
data at the highest speed (9600 baud) for up to 250 milliseconds after it 
receives the XOFF, without losing data. 


Figure 1-5 shows how DECtalk synchronizes data transfer with the host 
through XON/XOFF signals. 


If the host does not stop sending data in time, the input buffer may overflow 
and characters may be lost. DECtalk does not give an audible warning of this 
overflow, except for the obvious garbling of partial words. The host can issue a 
device status request (DSR) command to determine if an input buffer overflow 
occurred. 


Most operating systems have a HOSTSYNC option (or its equivalent) in the 
terminal setup characteristics. If this characteristic is set on the DECtalk com- 
munications line, the host computer handles XON and XOFF signals. If 
XON/XOFF coordination is not available, the application program may be able 
to avoid buffer overflow by using the DT_SYNC command and controlling the 
program's output rate; however, Digital does not recommend this method 
because it causes errors. The "Data Synchronization" section in Chapter 3 
discusses DT... SYNC. 
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HELLO. | AM DECtalk. WHEN IN THE 
COURSE OF HUMAN EVENTS... 
MUMBLE ... MUMBLE... 






DECtalk 





...ОР HUMAN 
EVENTS... 











... WHEREFORE HE HATH CAUSED... 
«MUMBLE ... MUMBLE... 






DECtalk 


.. WHEREFORE... 


HOST PAUSES WHILE DECtalk EMPTIES ITS BUFFER. 





DECtalk 









HE HATH CAUSED... 





DECtalk 


DECtalk’s BUFFER IS NEARLY EMPTY, SO IT SENDS ХОМ. 






2.1 THANK YOU FOR... 










„MUMBLE ... MUMBLE..: 
| THANK YOU FOR 
LISTENING TO ME. 







DECtalk 





HOST RECEIVES XON AND RESUMES TRANSMISSION. Е 


Figure 1-5 Synchronizing DECtalk and Host Communications 
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DECtalk-Host Program Sequence 

After you set up a parsing method so data can pass between the host comput- 
er and DECtalk, you should set up the host for the kinds of data to receive. 
How you set up information handling depends on the needs of the user. The 
following section provides some guidelines for developing your application's 
dialog. 

DEVELOPING YOUR APPLICATION 

DECtalk lets people use your computer-based applications from any keypad 
telephone. DECtalk speaks your messages in an understandable voice. When 
the user presses keypad keys, DECtalk sends those characters to your pro- 
gram. The following guidelines should help you adapt your application to your 
unique needs. 

General Guidelines 


e Keep the user's point of view, not the programmer's. Use commands that 
are logically related to the way users see the task. 


e Most people will not carry a large user guide around with them. 
e Frequent users become experts quickly. 
Writing Dialog 
e Keep dialog simple, but meaningful. 
e Organize each message as follows. 
1. Put the hardest element to remember first. 
2. Put the easiest elements to remember in the middle. 
3. Put information for immediate recall at the end. 


e Tell users only what they need to know in order to continue a task. 


e Do not use humor or threats. Keep dialog strictly factual and informative. 
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Help Messages and Replies 


e Make help messages optional. Let users decide when they want more 
information. | 


e Repeat significant phrases in help messages. 


e Let users know that DECtalk is acting on their specific commands. For 
example, say “Sending reply to Ms. Jones," rather than "Sending reply.” 


Entering Keypad Commands 
е Remember, there are only 12 keys on the telephone keypad. 
e Keep the same function on the same key. 


e Refer to keypad numbers, not letters. People do not remember which 
letter is on which key. Use "Press 1 for next, 2 for previous, 3 to exit," 
rather than “Press М for next, P for previous, E for exit." 


e Create a standard method for users to exit from a subtask to the main 
dialog. 


Names, Part Numbers, and Alphanumeric Text 

In many DECtalk applications, you use the 12 keypad keys to enter a person's 
name or an alphanumeric part number. Since the application program only 
receives a string of digits (and the # and * characters), the program must use 
the digits as an index to the actual data item. 


If you are designing a new system, you could specify numeric part numbers 
only. However, in the real world, a company is not going to change its existing 
warehouse methods to match DECtalk. So the user will have to enter some- 
thing that your application can translate into the current system. 


Direct Numeric Encoding 

Using this method, the user simply presses the key labeled with the desired 
letter. For example, to select “DIGITAL” the user would press 3444825. You 
could assign the letters О and 2 to the 7 (РОН5) and 9 (WXYZ) keys, 
respectively. 
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Numeric encoding is a simple method to describe and implement. Since users 
can recall more than one item for a given digit string, your application must 
provide a way to select alternatives. You could have users select alternatives 
by number. Or you could have them step through a list, using next and previous 
commands. | 


Numeric encoding is probably the best method for lists of names and for many 
part number applications. You can even use this method for ID or password 
entry. 


Two-Character Encoding 

Some applications use specific letters in their codes (for example, three-char- 
acter airport codes). You cannot use direct numeric encoding to select specific 
letters on the keypad. 


One possible solution is two-character encoding. This method matches the 
three letters on each key to the three columns of keys on the keypad. The user 
presses two keys to select a letter. | 


1. The key with the desired letter 
2. The 1, 2 or 3 key (to select the specific letter) 


For example, to select "DEC" the user would press 313223. You could have 
users enter numbers together with the 0 (OPER) key. And you could assign the 
missing Q and Z (plus the space character) to the 1 key. 


The United States Federal Aviation Administration used the above method to 
provide a voice response weather system. (The USFAA used stored segments 
of speech - DECtalk was not available at the time.) 


Ending Commands and Data 

You can use single-character commands and fixed-length data fields for many 
applications. But for complex applications or variable-length data you may find 
it simpler to ask the user to end all commands and data by pressing a special 
key (such as #). Pressing # lets the program know that the right number of 
characters have been entered. 


You could also use DECtalk's flexible keypad timeout facility. If the user is 
entering a variable-length numeric field, use a long timeout for the first digit and 
(possibly) a shorter timeout for successive digits. 
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Application Development Tips 
Here are some tips for encoding the application itself. 


e Use timeouts for everything. Assume that the user may hang up the 





phone at any time. Also assume that data entry will be quite slow. This is 
important when planning data base entry and record-locking strategies. 


The DECtalk applications support library may return an error code due to 
transient problems (such as a system overload). The simplest recovery is 
to hang up the call and reinitialize DECtalk. Log the problem for future 
action. 


People can recall about 5 seconds of text without difficulty. You can use 
entries such as “1 for yes, 2 for no, 3 for maybe," but do not ask an 
untrained user to remember anything more complex. 


DECtalk tends to spell out text that may be ambiguous (for example, part 
numbers). You can write a small filter subroutine that recognizes certain 
strings and pronounces them in a form more suitable for your specific 
application. 


| |f your application accepts data from the telephone keypad, make sure 


the operating system can buffer type-ahead characters. Also, make sure 
the operating system responds to DECtalk's XOFFs. 


DECtalk speaks pending text if the host system stops delivering text for 5 
seconds. This feature may be a problem on an overloaded System. You 
may need help from the system manager to obtain more resources or 
adjust program priorities. 


When you have DECtalk speak information from a data base, remember 
that the listener hears the information only once. You should offer a 
repeat function for complex subject matter. 11 you have DECtalk read mail 
or other unstructured text, you should offer a back up one sentence 
function, using the Index Test command (Chapter 3) to signal what has 
been heard. 
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DECtalk has several features you can change to control the operating environ- 
ment. These parameters include the following. 


| . e line characteristics (such as line speed) 


e character sets (to send and receive information) 





e modes (to control DECtalk's interpretation of special characters and pho- 
nemic text) 





There are also several testing and inquiry commands, described in Chapter 5. 
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SELECTING ASCII CHARACTER SETS 


DECtalk is a computer terminal device, and conforms to the standards for 


computer terminals. 


DECtalk speech does not include much of the visual information of character 
sets. For example, DECtalk uses the following rules for all character sets. 


1. Uppercase and lowercase letters are considered the same. For example, 
DECtalk speaks the letter О as “дее,” not "uppercase gee." 


2. Foreign letters (as found in the multinational character set) are spoken as 
English. For example, DECtalk speaks the letter à аз “a,” not “а umlaut.” 


3. Youcan translate or map 7-bit codes into 8-bit codes, and 8-bit codes into 
7-bit codes (Figure 2-1). This mapping has no effect on spoken text. Table 
2-1 gives the escape sequences that change DECtalk to 7-bit or 8-bit 
modes. 


The following paragraphs describe how DECtalk interprets certain keyboard 
(or host computer) generated codes. 
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Figure 2-1 Mapping 7-Bit and 8-Bit Tables 
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CODING STANDARDS 

The DTCO1 uses ап 8-bit character encoding scheme and a 7-bit code exten- 
sion technique that are compatible with the following ANSI and ISO standards. 
ANSI (American National Standards Institute) and ISO (International Organiza- 
tion for Standardization) specify the current standards for character encoding 
used in the communications industry. 


Standard Description 


ANSI X3.4 - 1977 American Code for Information 
Interchange (ASCII) 


ISO 646 - 1977 7-Bit Coded Character Set for 
Information Processing Interchange 


ANSI X3.41 - 1974 Code Extension Techniques for Use 
with the 7-Bit Coded Character Set 
of American National Code Information 


Interchange 
ISO Draft 7-Bit and 8-Bit Coded Character 
International Sets - Code Extension Techniques 


Standard 2022.2 


ANSI X3.32 - 1973 Graphic Representation of the 
Control Characters of American 
National Code for Information 
Interchange 


ANSI X3.64 - 1979 Additional Controls for Use with 
American National Standard for 
Information Interchange 


ISO Draft Additional Control Functions for 
International Character Imaging Devices 
Standard 6429.2 
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CODE TABLE 
A code table is a convenient way to represent 7-bit and 8-bit characters, 
because you can see groupings of characters and their relative codes clearly. 


7-Bit ASCII Code Table 
Figure 2-2 is the 7-bit ASCII code table. There are 128 positions corresponding 
to 128 character codes arranged in a matrix of 8 columns and 16 rows. 
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Figure 2-3 7-Bit Code 


Each row represents a possible value of the four least significant bits of a 7-bit 
code (Figure 2-3). Each column represents a possible value of the three most 
significant bits. 


Figure 2-2 shows the octal, decimal, and hexadecimal code for each ASCII 
character. You can also represent any character by its position in the table. For 
example, the character H (column 4, row 8) can be represented as 4/8. 


DECtalk processes received characters based on two character types defined 
by ANSI, graphic characters and control characters. 


Graphic characters are characters you can display on a video screen. The 
ASCII graphic characters are in positions 2/1 through 7/14 of Figure 2-2. They 
include alphanumeric characters plus punctuation marks and various text sym- 
bols. Examples are C, n, *', !, +, $. 


Control characters are not displayed. They are single-byte codes that perform 
specific functions in data communications and text processing. The ASCII 
control characters are in positions 0/O through 1/15 (columns 0 and 1) of Figure 
2-2. The SP character (space, 2/0) can be considered either a graphic charac- 
ter or a control character depending on the context. DEL (7/15) is always used 
as a control character. | 


Control character codes and functions are standardized by ANSI. Examples of 
ASCII control characters with their ANSI-standard mnemonics are CR (carriage 
return), FF (form feed), and CAN (cancel). 
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The above conventions can be generalized to the 8-bit character encoding 


used on DECtalk. Figure 2-4 shows the 8-bit code table. It has twice as many 
columns as the 7-bit table, because it contains 256 versus 128 code values. 


8-Bit Code Table 
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Figure 2-4 8-Bit ASCII Code Table 
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Figure 2-5 8-Bit Code 


As with the 7-bit table, each row represents a possible value of the four least 
Significant bits of an 8-bit code (Figure 2-5). Each column represents a possible 
value of the four most significant bits. 


All codes on the left half of the 8-bit table (columns 0 through 7) are 7-bit 
compatible: their eighth bit is not set and can be ignored or assumed to be 0. 
You can use these codes in either a 7-bit or an 8-bit environment. All codes on 
the right half of the table (columns 8 through 15) have their eighth bit set. You 
can use these codes only in an 8-bit compatible environment. 


The 8-bit code table (Figure 2-4) has two sets of control characters, CO (control 
zero) and C1 (control one). The table also has two sets of graphic characters, 
GL (graphic left) and GR (graphic right). 


On DECtalk, the basic functions of the CO and C1 codes are as defined by 
ANSI. CO codes represent the ASCII control characters described earlier. The 
CO codes are 7-bit compatible. The C1 codes represent 8-bit control characters 
that let you perform more functions than those possible with the CO codes. C1 
codes can be used directly only in an 8-bit environment. Some C1 code posi- 
tions are left blank because their functions are not yet standardized. 


NOTE: DECtalk only recognizes the SS2, SS3, DCS, CSI, and ST control 
codes. The others are ignored. 


The GL and GR sets of codes are reserved for graphic characters. There are 
94 GL codes in positions 2/1 through 7/14 and 94 GR codes in positions 10/1 
through 15/14. By ANSI standards, positions 10/0 and 15/15 are not used. You 
can use GL codes in 7-bit or 8-bit environments. You can use GR codes only in 
an 8-bit environment. 
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CHARACTER SETS 

You cannot change the functions of the CO or C1 codes. However, you can 
map different sets of graphic characters into the GL and/or GR codes. The sets 
are stored in the terminal. But they are not available for use until mapped into 
the GL or GR codes. 


Selecting Alternate Character Sets (GO - G3) 

DECtalk has four alternate character set areas: GO, G1, G2, and G3. When 
DECtalk powers up, it loads the ASCII_G (7-bit) character set in alternate 
buffers GO and G1. The DEC multinational (8-bit) character set is loaded in 
alternate buffers G2 and G3. 


DECtalk does not call the alternate character sets directly from GO, G1, G2, or 
G3. The selected set is first mapped into the GL or GR areas, then used to 
interpret the next received (or transmitted) character. So, three factors deter- 
mine the active character set. 


e Which character area is active: GL or GR 
e Which alternate set is mapped into the active area: GO, G1, G2, or G3 


e Which character set is loaded in the alternate (GO or G1) set: ASCII_G or 
multinational 


Figure 2-6 shows how you сап map the ASCII_G and multinational sets into the 
alternate character set buffers. Figure 2-7 shows how you can select active 
character sets. 


Table 2-2 gives the escape sequences and control characters that load and 
select alternate character sets. Table 2-3 gives the escape sequences to load 
active character sets into GO through G3. 


28 | SETUP ESCAPE SEQUENCES 


8 - BIT FORMAT IN USE 


С) S1 OR 150 
(2) $0 OR 151 
(3) 552 OR 152 
©) LSIR 
© SS3 OR LS3 
(5) LS2R 
G) LS3R 


DESIGNATION OF GRAPHIC SETS 
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Figure 2-7 Selecting Active Character Sets 
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DEC Multinational Character Set 

By factory default, when you power up or reset DECtalk, the DEC multinational 
character set is mapped into the 8-bit code matrix (columns 0 through 15). 
Figure 2-8 shows the DEC multinational character set. 
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Figure 2-8 DEC Multinational Character Set (Left Half) 
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Figure 2-8 DEC Multinational Character Set (Right Half) 
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The 7-bit compatible left half of the DEC multinational character set is the ASCII 
graphics set; the CO codes are the ASCII control characters and the GL codes 
are the ASCII graphics set. 


The 8-bit compatible right half of the DEC multinational character set includes 
the C1 8-bit control characters in columns 8 and 9. The GR codes are the DEC 
supplemental graphics character set. The DEC supplemental graphics charac- 
ter set has alphabetic characters with accents and diacritical marks that appear 
in the major Western European alphabets. It also has other symbols not includ- 
ed in the ASCII graphics character set. 


DECtalk removes the accent from characters in the supplemental graphics 
character set, which are accented versions of characters in the ASCII graphics 
set. (Naive is the same as naive.) Other supplemental graphic characters are 
ignored. 


WORKING WITH 7-BIT AND 8-BIT ENVIRONMENTS 
To take advantage of DECtalk's 8-bit character set, your program and commu- 
nication environment must be 8-bit compatible. 


Conventions for Codes Transmitted to the Terminal 

DECtalk expects to receive character codes in a form consistent with 8-bit 
coding. Your application can freely use the 8-bit codes as well as the 7-bit code 
extensions if it has enabled 8-bit controls. 


When your program sends GL or GR codes, DECtalk interprets these accord- 
ing to the graphic character mapping currently being used. The factory default 
mapping, which is set when you power up or reset DECtalk, is the DEC mul- 
tinational character set. 


Mode Selection (DT. MODE) 

This sequence acts like the SET MODE command in setup mode. DT. MODE 
controls how DECtalk handles particular characters in spoken text. The gener- 
al DT. MODE escape sequence is as follows. 


ESC P 0 3 8 0 4 РЗ 2 ESC \ 
027 080 048 059 056 048 059 ** 122 097 092 


Use the following method to obtain the P3 value. 
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1. Add up the values of the MODE flags in Table 2-4 that you want to use. 


2. Convert the sum to ASCII digits. Use these digits in place of P3 in the 





escape sequence. 
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For example, assume you want to set MODE. SQUARE and MODE. MINUS, 























ESC \ 
027 080 048 059 056 048 059 053 122 027 092 
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VOICE COMMANDS, 
PHONEMIC TEXT, 
AND THE USER DICTIONARY 


The DECtalk DTCO1 Owner's Manual describes how to modify the DECtalk 
voice (using phonemic commands and the phonemic alphabet) from a terminal. 
This chapter describes a special series of escape sequences that gives a host 
computer slightly greater control over DECtalk. For example, escape 
sequences can turn the DECtalk voice on or off and load the user dictionary. 


SPEECH CONTROL 
There are three ways to control DECtalk speech. 


1. Through English text (sentences in standard English format and spelling). 
DECtalk speaks this text as written. 


2. Through phonemic spelling (sentences or phrases written in phonemic 
symbols). Phonemic spelling is closer to the actual pronunciation of the 
text. 


3. Through phonemic commands. Phonemic commands control features of 


speech that are not obvious from the visible text, such as rate of speech, 
sex of the speaker, and excitement level. 
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SPEECH TIMEOUT 

Usually, DECtalk does not begin speaking until the host computer sends a 
clause terminator (period, comma, exclamation point, or question mark); how- 
ever, there is a 5-second timeout limit. If the host does not send data within 5 
seconds, DECtalk speaks the pending text in its input buffer, as if a comma had 
been sent. 


Programs with long interruptions (such as pauses to search a database) should 
collect complete sentences before sending anything to DECtalk. Otherwise, 
this timeout may cause unnatural breaks in sentences and jerky-sounding 
speech. 


ENGLISH TEXT 
DECtalk speaks sentences written in standard English, if the text follows three 
rules. 


1. Sentences end with a period, exclamation point, or question mark. 


2. All commas, periods, exclamation points, and question marks are fol- 
lowed by a space (or an equivalent character from Table 1-1). 


3. A period must be followed by enough text to distinguish between abbrevi- 
ations and the end of a sentence. 


The host computer can send English text in paragraph format; that is, 
sentences can be broken in the middle by carriage returns. 


If a sentence is too long to store in DECtalk's buffers, the sentence is spoken in 
sections. DECtalk breaks up the sentence and speaks it as if clause bounda- 
ries were present; the effect is similar to a person trying to speak a long 
sentence and running out of breath. Keep sentences down to a reasonable 
length to avoid this effect. 


See the DECtalk DTCO1 Owner's Manual for more information on speech 
phrasing and emphasis. The “Data Synchronization" section in this chapter 
also describes how to coordinate speech and interaction commands to prevent 
loss of information. 
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SPEAK PHONEMIC TEXT (DT. PHOTEXT) 

When MODE SQUARE is on, you can embed phonemic text in normal text with 
square brackets. When sending data from the host computer, you can use the 
ОТ. РНОТЕХТ escape sequence as well as the square brackets; MODE 
SQUARE does not have to be on. The DT. РНОТЕХТ escape sequence is as 
follows. 


ESC P 0 5 0 2 text ESC \ 
027 080 048 059 048 122  ......... 027 092 


ESC P 0; 0215 the same as a left bracket ([), and ESC \ is the same as a right 
bracket (]). DECtalk uses phonetic speech for all text between the command 
terminator z and sequence terminator ESC \. 


Appendix C lists the phonemic alphabet used by DECtalk. The DECtalk DTCO1 
Owner's Manual describes the alphabet in detail. 


Within the phonemic text string, the host computer can transmit comments (for 
program maintenance) enclosed in /* and */ sequences. (An ESC \ can also 
terminate any comment.) 


For example, in the following sequence the word Hello is a comment. 

ESC P 0; 0 z hx' ehlow /* Hello */ ESC \ 
DECtalk processes a phonemic text escape sequence as though the introducer 
and terminator were spaces. This means phonemic text cannot replace part of 
a word. 
In addition to transmitting the proper pronunciation, the phonemic text escape 
sequence can send control phonemes. This example changes the speech rate 
to 250 words per minute. 


ESC Р 0; 0 z :га250 /* Rate = 250 wpm */ ESC \ 


NOTE: You cannot use STX (CTRL-B) and ETX (CTRL-C) to delimit phonemic 
text. Use the DT_PHOTEXT escape sequence instead. 


ei tpt i tas es ea Nt 2/2. 
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STOP SPEAKING (ОТ. STOP) 

This escape sequence immediately stops speech, even if DECtalk is in the 
middle of a sentence. DT. STOP is useful for stopping speech to perform other 
actions. For example, the user may press a key to get more instructions, 
warnings, or shortened versions of explanations (such as lengthy HELP 
information). 


The ОТ. STOP escape sequence is as follows. 


ESC P 0 ; 1 0 2 Е5С \ 
027 080 048 059 049 048 122 027 092 


Speech stops immediately and all internal buffers аге reinitialized. 


DATA SYNCHRONIZATION (рТ. SYNC) 

The application program can send data to DECtalk faster than DECtalk can 
speak it. If the user must carry on a dialogue with the application program 
(through the telephone keypad), the application program should know whether 
or not DECtalk has finished speaking the text sent to it. DT. SYNC provides 
this coordination between the application program and DECtalk speech. 


When the host sends DT. SYNC, DECtalk finishes speaking any pending text 
before processing the next command from the host. This ensures that the user 
hears a message before any other action starts, such as hanging up the phone 
or starting the phone timeout clock. Note that DT. SYNC acts as a clause 
boundary, the same as a comma, period, exclamation point, or question mark. 


DECtalk considers a section of text to be spoken as soon as the parameters 
for that section are successfully sent to its signal processing section. Audio 
output runs approximately 6 milliseconds behind the transmission of the 
parameters. Applications that switch the audio output of a single DECtalk to a 
number of sites may need to take this delay into account. 


The DT. SYNC escape sequence is as follows. 


ESC P 0 А 1 1 2 ESC \ 
027 080 048 059 049 049 122 027 092 


ОТ. 5ҮМС does not reply to the host when processing is complete. However, 
you can do this by following the DT SYNC command with а 
DT. INDEX. QUERY command. 
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ENABLE OR DISABLE SPEAKING (DT. SPEAK) 

The ОТ. STOP sequence stops speech in progress. The DT. SPEAK sequence 
turns speech processing off or on, so received text is either spoken or discard- 
ed. DT SPEAK is useful if the host computer can recognize such things as 
electronic mail letterheads and discard them as unnecessary. The host can act 
as a filter, removing extraneous speech. 


The DT. SPEAK escape sequence is as follows. 


ESC P 0 - 1 2 : P3 т ESC \ 
027 080 048 059 049 050 059 *** 122 027 092 


If P3 is 0, DECtalk stops speaking text; that is, it stops passing characters 
received from the host to the text-to-speech processing section. If P3 is not O, 
DECtalk resumes speaking. 


DECtalk also resumes speaking if the host sends DT. SYNC, DT. STOP, RIS, 
DECSTR, or DT. PHONE:ph answer. 


INDEXING 

Text sent to DECtalk can contain index marks. DECtalk remembers these 
marks when they are spoken. The host application can listen to the spoken text 
(by reading the value of the last index) to determine how much transmitted text 
was actually spoken. 


Index markers affect the way numbers and abbreviations are spoken. For 
example, DECtalk says $ 12.45 as “twelve dollars and forty-five cents.” (The 
space after the $ is optional.) If an index marker separates the $ and 1, then 
DECtalk says ''dollar twelve point four five." 


The following paragraphs describe how to mark text and return their values to 
the application program. 
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Index Text (DT. INDEX) 
This sequence inserts an index marker (flag) in the text stream sent to DECtalk. 


The DT. INDEX escape sequence is as follows. 


ESC P 0 ; 2 0 ; РЗ 2 ESC \ 
027 080 048 059 050 048 059 *** 122 027 092 


The P3 parameter may range from O to 32767, sent as the ASCII characters for 
the number. Numbers outside the range are brought into range by masking off 
the overflow bits. 


For example, the host computer sends the following data stream to DECtalk 
and marks the second word with the index 15. 


Hello ESC P0;20;15z ESC \ there. 


After speaking the text before DT_INDEX, DECtalk remembers the value 15. 
The host may use DT_INDEX_QUERY (described later in this chapter) to get 
this stored value. 


index Reply (DT_INDEX_REPLY) 
DT. INDEX simply marks a position in the text. DT. INDEX REPLY marks a 
position, but also has DECtalk inform the host when the index is spoken. 


Тһе DT ІМОЕХ . REPLY escape sequence is as follows. 


ESC P 0 ; 2 1 - P3 2 Esc \ 
027 080 048 059 050 049 059 *** 122 027 092 


The P3 parameter is in the range 0 to 32767, usirig ASCII characters for the 
selected number. 


When DECtalk speaks the DT. INDEX. REPLY sequence, it sends a reply 
(containing the P3 parameter of the index) to the host. The escape sequence 
reply format is as follows. 


ESC P 0 : 3 1 ; P3 2 ESC \ 
027 080 048 059 051 049 059 *** 122 027 092 


РЗ has the original value specified іп DT. INDEX БЕРІ. 
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Index Query (DT ІМОЕХ QUERY) 

DT. INDEX. QUERY requests DECtalk to reply to the host with the last index 
marker spoken (that is, the last portion of spoken text that had an index 
marker). The ОТ. . INDEX. QUERY escape sequence is as follows. 


ESC P 0 ; 2 2 2 ESC \ 
027 080 048 059 050 050 122 027 092 


DECtalk immediately returns a DECtalk reply escape sequence to the host in 
the following format. 


ESC P 0 ; 3 2 ; P3 z ESC \ 
027 080 048 059 051 050 059 ** 122 027 092 


P3 contains the last index spoken. The P3 value is ASCII 0 under any of the 
following conditions. 


e The last index passed was ASCII 0. 
e No index has been passed yet. 


e No index has been marked in the text; that is, the host has not sent a 
ОТ. INDEX or ОТ. .INDEX НЕРІ Ү sequence. 


Figure 3-1 shows how DT_SYNC and DT. INDEX QUERY can coordinate 
host-DECtalk communications. 
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Figure 3-1 Using ОТ. . SYNC and DT INDEX . QUERY to Coordinate 
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LOAD DICTIONARY (DT_DICT) 

The user dictionary is used for processing abbreviations, and for providing 
phonemic equivalents of unusual words. Тһе ОТ. ПІСТ escape sequence is as 
follows. 


ESC P 0 3 4 0 2 name substitution ESC \ 
027 080 048 059 052 048 122 ........ ................... 027 092 


Whenever the word represented by “пате” appears in the input text, the 
phonemic pronunciation given by “substitution” is used. 


Any uppercase characters in the name only match uppercase characters in the 
input text. Lowercase characters in the name match both uppercase and 
lowercase characters in the input text. DECtalk always searches dictionary 
entries in the order entered. 


If a name ends with a period (.), a period must follow the word in running input 
text. This period is included as part of the word, and is not recognized as a 
sentence terminator. 


Here are some examples of dictionary entries. 


ESCPO0;40;zmsmihz ESC \ 

ESC P0;40;zms. miihz ESC \ 

ESC P0;40; 2 DEC d’ehk ESC \ 

ESC P0;40; z dec d’iysehmber ESC \ 
ESC P 0:40; z Goethe g'owth iy ESC \ 
ESC P 0:40; 2 GOSLOW :ra 120 ESC \ 


DECtalk does not recognize an error in phonemic spelling until the word is 
used. You can use comments in the substitution, but they are not recommend- 
ed. Note the use of capitalization in the previous examples to distinguish 
between abbreviations with the same spelling. 


If you do not enter a substitution, DECtalk removes the word from the user text 
dictionary. You cannot remove words from the built-in dictionary. 


i ЕКЕ КК Кк т SCN OUI OE EA A ааа " 
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After loading the word and its definition, DECtalk replies with a dictionary 
status report. 


ESC P 0 ; 5 0 ; РЗ 2 ESC \ 
027 080 048 059 053 048 059 ** 122 027 092 


P3 тау һауе one of the following values. 


0 Word entered correctly. 
048 

1 No room in dictionary. 
049 

2 Entry too long (256 characters maximum). 
050 
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TELEPHONE COMMUNICATIONS 


You can connect DECtalk to the public telephone system to provide a dial-up 
link between remote users on telephones and a computer application program. 
DECtalk sends and receives information as a link between a remote user and 


the host computer. 


DECtalk communicates with the phone through the voice circuits, passing on 
spoken data to the listener. DECtalk passes information back to the host both 
as ordinary ASCII characters, and as escape sequences. The user can commu- 
nicate with the host (through DECtalk) by using the Touch-Tone keypad, if 
available. 


The DT. PHONE escape sequence is the controlling sequence for all telephone 
operations. 
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TELEPHONE MANAGEMENT (DT PHONE) 

This escape sequence takes one or more parameters and controls the 
attached telephone and Touch-Tone keypad interface. The DT. PHONE 
escape sequence is as follows. 


ESC P 0 ; 6 0 ; Pn ; Pn z text ESC \ 
027 080 048 059 054 048 059 ** 059 *** 122 .... ....027 092 


The Pn parameters act аз a list of telephone management commands and 
execute in sequence. Table 4-1 lists the valid Pn parameters. 


A single DT. PHONE sequence can perform several commands. Some com- 
mands can take additional parameters. 


All ОТ_РНОМЕ commands return a status report to the host in the following 
escape sequence. Table 4-2 lists the valid P3 values. 


ESC P 0 : 7 0 : P3 2 ESC \ 
027 080 048 059 055 048 059 ** 122 027 092 


All telephone management commands return а reply sequence back to the 
host upon command execution. PH. STATUS is only needed to check the 
telephone status when a DT. PHONE command is not pending. Note that 
РН. ANSWER generates an additional status report when the phone is 
answered. 


Telephone keypad characters are sent as text, not escape sequences. 
Note that the R3. PH. TIMEOUT reply sequence is sent when a timeout 


occurs; that is, the reply sequence may arrive as unrequested input, and the 
application program must be ready to receive it. 
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PH_ANSWER 

DECtalk is set up to answer incoming phone calls. The parameter that follows 
the PH_ANSWER parameters indicates the number of rings to wait before 
answering the telephone. A parameter of 0 or 1 means answer the telephone 
after the first ring; 2 means answer after 2 rings, and so on. 


If the telephone is off-hook when the host sends a PH_ANSWER parameter, 
DECtalk hangs up the telephone (disconnects any active call) before executing 
the PH_ANSWER command. 


DECtalk sends two status replies to a РН. ANSWER request. The first status 
reply informs the host that the DT. PHONE command was correctly received. 
The second reply informs the host that the telephone has actually been 
answered. 


DECtalk stops waiting for incoming calls whenever the host sends 
PH_HANGUP, РН. ТОМЕ DIAL, PH. PULSE. ПІЛІ, RIS, or DECSTR. 


PH. HANGUP 

This command hangs up the telephone. The status reply is delayed until the 
telephone is back on-hook (disconnected). The host should wait for the 
R3_PH_ONHOOK reply before sending other commands to DECtalk. 


PH. KEYPAD 

This command enables the telephone keypad. The request is ignored if the 
phone is inactive (on-hook); however, DECtalk returns an R3. PH. ONHOOK 
status reply. 


PH. NOKEYPAD 

This command disables the telephone keypad, but maintains the phone con- 
nection. This request is ignored if the phone is inactive (on-hook); however, 
DECtalk returns an R3. PH. ОМНООК status reply. 


PH. TIMEOUT 

This command starts (or restarts) an internal DECtalk timer. If the user does 
not press a telephone keypad button within the timeout interval, an 
R3_PH_TIMEOUT status is returned (Table 4-2). 


The application program should set PH. KEYPAD on before sending a 
РН. TIMEOUT command; otherwise, the user cannot respond to DECtalk 
requests for input. 
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The parameter following PH. TIMEOUT is the number of seconds to wait for a 
response from the caller. A parameter of 0 cancels any active timeouts. After a 
timeout, the timer is stopped. The application program must send a new 
PH. TIMEOUT command to restart the timer. 


Timeouts are the only way to detect that the caller has hung up the telephone. 


The public telephone system in your country may have another timeout require- 
ment, independent of DECtalk. If this is true, a phone call may be automatically 
terminated (hung up) if a response is not given in a certain length of time. Your 
application program should accept unsolicited ВЗ. РН. ОМНООК replies. 


PH. ТОМЕ. ПІЛІ. and PH_PULSE_DIAL 

DECtalk can dial an outgoing call by using these two commands. If DECtalk is 
connected to a Touch-Tone public telephone network, then use the 
PH. TONE.DIAL parameter; otherwise, use PH —PULSE_DIAL. 
PH. PULSE. DIAL works like an old rotary phone dial. 


If the telephone is on-hook when the host sends a dialing command, DECtalk 
picks up the telephone and inserts a 2-second delay. 


The text between the command terminator 2 and the ESC \ sequence is the 
number to dial. For the Touch-Tone dialing system, the characters 
0123456789* 4 ABCD!^ are recognized. For the pulse dialing system, the char- 
acters 0123456789!^ are recognized. 


The ! character inserts a 1-second delay into the dialing stream. DECtalk 
pauses during the dialing sequence every time it finds a ! character. 


On some telephone systems, a user can press the switch hook to transfer calls 
or otherwise interrupt a phone call. This signal is called a switch-hook flash. 
The ^ character inserts a 250-millisecond switch-hook flash signal into the 
dialing stream. You can use successive ^ characters to generate longer 
flashes. 


With Touch-Tone dialing, the characters ABCD generate the extra four tones of 
the military handset. A is the character to the right of the 3, B is the character 
below it, and so on. 


Figure 4-1 shows a complete phone call session, including a timeout sequence 
initiated because a user disconnected. 
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Figure 4-1 Telephone Communications = 

















MAINTENANCE 
AND DEBUGGING COMMANDS 


DECtalk has a set of commands that set DECtalk operating features, test 
DECtalk, and help debug application programs. Most of these commands have 
an inquiry-response format. DECtalk returns an answer to the host computer 
after the action is complete (or in response to a pure inquiry). 


DEVICE ATTRIBUTE REQUEST 

DECtalk responds to device identity requests from the host computer. For 
compatibility with an older escape sequence, DECtalk recognizes two different 
request sequences, described in the following paragraphs. 


Device Attribute Request (DA Primary) 
The preferred device attribute request escape sequence is as follows. 


ESC [ 0 с 
027 091 048 099 


DECtalk identifies itself by sending the following sequence. 


ESC [ ? 1 9 c 
027 091 063 049 057 099 


DECtalk does not respond to secondary device attribute requests, since its 
product identification code is less than 50. 
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Identify Terminal (DECID) 
DECtalk responds to the old identify terminal sequence (DECID) exactly as it 
responds to the DA Primary request. 


The old identify sequence is as follows. 


ESC Z 
027 090 


DECtalk identifies itself by sending the following sequence. 


ESC [ ? 1 9 с 
027 091 063 049 057 099 


This is the same sequence as the DA Primary answer. 


DEVICE TEST AND STATUS 

A special set of escape sequences run DECtalk hardware self-tests. Another 
set of escape sequences forces DECtalk to return status reports. The following 
_ paragraphs describe these sequences. 


DECtalk Power-Up Status 

You can reset DECtalk to its power-up state. The method you use to reset 
DECtalk may affect the operating features (such as baud rate). You can reset 
DECtalk with any of the following methods. This chapter describes methods 2 
through 4. 


1. Power-up (PUP) is the state that DECtalk is in when first turned on. 


2. Return to initial state (RIS) is a hard reset you can set with an escape 
sequence. 


3. Soft reset (DECSTR) partially restores DECtalk to its power-up state. 
4. Nonvolatile memory reset (DECNVR) lets you reset the operating features 
in permanent memory. At power-up, DECtalk restores the feature settings 


that you reset in this memory. 


Table 5-1 lists the DECtalk operating features and their factory default settings; 
the reset methods in column three restore the feature to its power-up setting. 


ОДАРЕННОСТИ ОА ИНЬ РЕ ОСОЗНАНИЕ ERE TRE ORE: 


5 


ОЕ ОУУ 


yet io 


ГІ 77 


ЗН 


КУ ОООО 


22777 


agendi 


m MAINTENANCE AND DEBUGGING COMMANDS 53 


== The power-up setting is the factory default, unless you changed the setting and 
mE stored it with a DECNVR sequence. See the section on DECNVR in this 
chapter. 





Table 5-2 lists some other DECtalk actions performed by certain reset 
methods. 
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Device Self-Test (DECTST) 
This sequence initiates local self-tests. The escape sequence is as follows. 


ESC [ 5 ; Pn y 
027 091 053 059 *** 121 


7777777 


The Pn parameter specifies the test to perform (Table 5-3). 


The TEST_POWER parameter (Pn = 1) causes DECtalk to rerun its power-up к= 
initialization and test sequences. ALL DECtalk operating features return to the | 
power-up state; the telephone is hung up, the user dictionary is deleted, and all 
features are reset to their power-up values. 


"m 
| 
| 


The loopback tests require the appropriate loopback connectors. 


227771 


The built-in message provides а quick check of the DECtalk system. The 
message includes the version number of the DECtalk firmware. 
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Device Status Request (DSR) (Brief Report) 
The brief DSR escape sequence is as follows. 


ESC [ 5 n 
027 091 053 110 


If no malfunctions are detected, DECtalk replies with the following sequence. 


ESC [ 0 n 
027 091 048 110 


If a malfunction is detected, DECtalk replies with the following sequence. 


ESC [ 3 n 
027 091 051 110 


Applications can use this brief DSR format in most cases, because a brief 
request does not reset any of DECtalk's internal error flags. The following 
extended DSR format is useful when a malfunction is detected. 


Device Status Request (DSR) (Extended Report) 
The extended DSR escape sequence lets an application program determine 
when DECtalk was first powered on. The application sends the extended DSR 
escape sequence as follows. 


ESC [ n 
027 091 110 


If no malfunctions are detected, DECtalk replies with one of two sequences. If 
this is the first extended DSR since DECtalk was powered on, DECtalk replies 
with the following sequence. 


ESC [ 0 n ESC [ ? 2 1 n 
027 091 048 110 027 091 063 050 049 110 


For later requests, DECtalk replies with the following sequence. 


ESC [ 0 n ESC [ ? 2 0 n 
027 091 048 110 027 091 063 050 049 110 





56 MAINTENANCE AND DEBUGGING COMMANDS 


If a malfunction is detected, DECtalk sends the following sequence. 


ESC [ 3 n ESC [ ? Pn ; .. Pn n 
027 091 051 110 027 091 063 *** 059... ee дїр 


Each Pn parameter specifies an error as follows. The extended status request 
sequence resets the error flags. 


2 2 Communication failure. 
050 050 


2 3 Input buffer overflow. 
050 051 


2 4 Last NVR operation failed. 
050 052 


2 5 Error in phonemic transcription. 
050 053 


2 6 Error in DECtalk private control sequence. 
050 054 


2 7 Last DECTST failed. 
050 055 


Reset to Initial State (RIS) 
Table 5-1 shows how the reset to initial state affects DECtalk. The RIS escape 
sequence is as follows. 


ESC c 
027 099 


This sequence resets DECtalk to its power-up state, without changing the 
speeds or data formats used on the host and local communication lines. All 
pending, unspoken text is lost. All user-defined dictionary entries are deleted. 
The telephone is returned to the on-hook state. Some operating features are 
restored from nonvolatile memory (NVR). 
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The RIS sequence always turns host speech on, even if host speech is turned 
off by the setup commands. 


This NVR recall is almost identical to a DECNVR recall from user memory. (See 
“NVR Parameters” in this chapter.) RIS does not change the line characteris- 
tics, and RIS updates the "status of the last NVR operation” flag reported by 
device status reply sequences. 


Digital recommends always using the DT. PHONE:ph һапдир sequence to 
hang up the telephone. If DECtalk receives an RIS sequence when the tele- 
phone is off-hook, and reads the telephone status during the hangup, DECtalk 
may report an off-hook status (instead of the expected on-hook status). 


Soft Terminal Reset (DECSTR) 
Table 5-2 shows how the soft terminal reset affects DECtalk. The DECSTR 
escape sequence is as follows. 


ESC [ ! р 
027 091 033 112 


This sequence resets DECtalk to its power-up state, without changing the 
speeds or data formats used on the host and local communication lines, or 
resetting user convenience features on the local terminal. Pending, unspoken 
text is not lost. The telephone returns to the on-hook state. 


Digital recommends always using the DT_PHONE:ph_hangup sequence to 
hang up the telephone. If DECtalk receives a DECSTR sequence when the 
telephone is off-hook, and reads the telephone status during the hangup, 
DECtalk may report an off-hook status (instead of the expected on-hook 
status). 


The DECSTR sequence always turns host speech on, even if host speech is 
turned off by the setup commands. 
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NVR Feature Settings (DECNVR) 

You can store operating feature settings permanently in nonvolatile memory 
(NVR). DECtalk restores these settings at the next power-up. To save or 
restore the current settings in NVR, use the following DECNVR escape 
sequence. 


ESC [ Pn : Pm ! r 
027 091 нң 059 ** 033 114 


If Pn is 0, this sequence restores all feature settings from NVR. This action may 
change the speeds or data format of the serial lines, so communication with the 
host or local terminal may be lost. The user dictionary is not deleted. The 
telephone is not hung up. 


If Pn is 1, this sequence stores all current feature settings in NVR. DECtalk 
stops processing host line commands until the feature settings are safely 
stored. 


The Pm parameter specifies which NVR memory to use. Memory O is a 
read/write memory you can use to store feature settings. DECtalk normally 
uses memory 0 at power-up. Memory 1 is a read-only memory, and always 
contains the factory-default DECtalk feature settings. DECtalk uses memory 1 
at power-up if memory 0 cannot be used. Diagnostics may use memory 1 to 
force DECtalk back to its factory settings. 


DECtalk remembers the success or failure status of the last NVR operation 
command. A device status request (DSR) sequence can check this status. 


TRACING AND DEBUGGING COMMANDS 

You can set DECtalk to log its actions and reactions to various commands on 
the local terminal. These commands are useful for testing and debugging 
during application program development. 


Local Log Control (DT. LOG) 

This sequence controls the logging of trace and debugging information on the 
local terminal. DT. LOG works like the SET LOG command in setup mode. (See 
the DECtalk DTCO1 Owner's Manual.) The DT. LOG escape sequence is as 
follows. 


ESC P 0 ; 8 1 ; P3 2 ESC \ 
027 080 048 059 056 049 059 *** 122 027 092 
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Use the following method to obtain the P3 value. 


1. Add up the values of the DT. LOG parameters in Table 5-4 that you want 
to use. 


2. Convert the sum to ASCII digits. Use these digits in place of P3 in the 
escape sequence. | 
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For example, assume you want to set LOG. TEXT and LOG. .RAWHOST. кш: 
LOG. TEXT -— Е 
LOG. RAWHOST = 4 | 
Desired P3 value = 5 — 


ESC P 0 : 8 1 ; 5 2 ESC \ pem 
027 080 048 059 056 049 059 053 122 027 092 | 


Table 5-4 lists the P3 parameters. Figure 5-1 shows the data paths for logging p 
and debugging. | 
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Figure 5-1 Data Paths for Logging and Debugging pee 
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LOG. TEXT 
This command logs all spoken text. The text source does not matter; text is 
logged from both the host and the terminal. 


LOG. РНОМЕМЕ 

This command logs all spoken text in its phonemic transcription. 
LOG. PHONEME is useful for testing the phonemic form of words and 
phrases. 


LOG. RAWHOST 

This command logs all control and text characters as received, except NUL 
characters (which are always deleted) and XON/XOFF characters (which still 
perform flow control functions). 


LOG_INHOST 
This command logs all characters received from the host. Control characters 
also print. 


LOG_OUTHOST 
This command logs all characters sent to the host. Control characters also 
print. 


LOG_ERROR 

This command logs all error messages. Usually DECtalk error messages are 
returned as escape sequences. Setting the LOG_ERROR flag causes error 
messages to be logged also. 


LOG_ERROR is useful during the early stages of application program 
development. 


LOG_TRACE 

This command displays all escape sequences symbolically rather than as 
escape sequences. If you use LOG_TRACE in debugging, you do not have to 
look up the meaning of escape sequences. 
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"à 


LOCAL TERMINAL COMMAND (DT. TERMINAL) aus 
This escape sequence controls the destination of characters typed on the local 
terminal when the terminal is not in setup mode. (The TERM. FILTER parame- 
ter affects characters sent to the local terminal when the terminal is not in 
setup mode.) Figure 5-2 shows the data paths in local terminal operations. 


ТЯ 


The format of the DT. TERMINAL escape sequence is as follows. 


ESC P 0 ; 8 2 ; РЗ 2 ESC \ 
027 080 048 059 056 050 059 *** 122 027 092 


Use the following method to obtain the P3 value. — 


1. Add up the values of the DT. TERMINAL parameters in Table 5-5 that you 
want to use. e 


2. Convert the sum to ASCII digits. Use those digits in place of P3 in the 
escape sequence. 
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Figure 5-2 Data Paths for Local Terminal Operations 
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p For example, assume you want to set TERM. HOST and TERM. EDITED. 
TERM. HOST == 1 
TERM. EDITED =4 
Desired P3 value = 5 


— ESC P 0 : 8 2 н 5 2 Е5С \ 
| 027 080 048 059 056 050 059 053 122 027 092 


=" Table 5-5 lists the possible P3 values. 


NOTE: If LOG. RAW and TERM. HOST are in effect and the host sends а 
device attribute request, both DECtalk and the terminal will respond. The appli- 
cation program sample in Chapter 6 turns off TERM. HOST for this reason. 
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TERM_FILTER is useful when you use DECtalk as a link between a general- 
purpose operating system and an applications terminal. TERM. FILTER modi- 
fies the operation of LOG. RAWHOST to prevent sending DECtalk-specific 
escape sequences to the local terminal. 


When you set TERM. FILTER, the following escape sequences usually 
processed by DECtalk are now only processed by the local terminal. 


Device self-test (ESC [ 5 ; Ps y) 

Brief device status request (ESC ] 5 n) 
Extended device status request (ESC [ n) 
Reset to initial state (ESC c) 

Soft terminal reset (ESC [ ! p) 

NVR parameters (ESC [ Pn ; Pn ! r) 
Device attributes inquiry (ESC [ 0 c) 
Identify terminal (ESC z) 


The following escape sequences are acted on by both DECtalk and the local 
terminal. 


e Select active character set (several sequences) 
e Select graphics repertory (ESC i B and ESC i <) 
e Select 7-bit C1 transmission (ESC SP F) 

e Select 8-bit C1 transmission (ESC SP G) 

e Truncate high-order bit in C1 (ESC SP 6) 

e Accept high-order bit in C1 (ESC SP 7) 


Because TERM. FILTER must parse and understand escape sequences, you 
can only use TERM. FILTER when the local terminal supports ANSI escape 
sequences. Digital's УТ100 and УТ200 series terminals and the terminals com- 
munications programs available for Digital's personal computers support ANSI 
escape sequences. 


KEYPAD MASK COMMAND (рТ. MASK) 

This command controls how DECtalk sends escape sequences and keypad 
characters to the host. DT. MASK simplifies application development when 
DECtalk is connected to a host via a packet-switched network or a network 
using the SNA (systems network architecture) protocol. These networks have a 
significant overhead associated with each message, so sending a line of text 
(several characters) is more economical than sending a single character. 
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DT. MASK is also useful when DECtalk is connected to an operating system 
that prefers to communicate line-by-line, rather than character-by-character. 
For example, when ОТ. МАЭК is on, you can use BASIC's INPUT LINE com- 
mand to read text from DECtalk. 


The command takes one parameter, which is interpreted as a 16-bit value. If a 
bit is set, DECtalk sends a carriage return after sending the associated keypad 
character. If any bit is set, DECtalk sends a carriage return after its escape 
sequence replies. (The carriage return follows the ESC \ string terminator.) The 
DT. МАЭК escape sequence is as follows. 


ESC P 0 ; 8 3 ; P3 z ESC \ 
027 080 048 059 056 051 059 ** 122 027 092 


The P3 parameter is bit-encoded. Specified values have associated characters 
(Table 5-6). If you specify a value, DECtalk sends a carriage return after the 
associated character (when a user presses that key). 
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For example, to have DECtalk treat the # and * characters as response termi- 
nators (but not the digits), a program would send the following sequence. 


ESC P ; 8 3 ; 3 0 7 2 z ESC \ 
027 080 059 056 057 059 051 048 055 050 122 027 092 


(3072 — 1024 -- 2048) 


If the person calling the application presses 123% followed by a keypad time- 
out, DECtalk would send the following. 


123 £ «carriage return 


ESC P ; 7 0 ; 2 2 ESC \ <carriage return 
027 080059 055 048 059 050 122 027 092 


This allows the application program to use standard line-oriented input rou- 
tines, rather than character-oriented routines. If you specify a P3 parameter of 
0 with DT_MASK, DECtalk will not send a carriage return after keypad charac- 
ters or escape sequences. 


NOTE: DECtalk will a send carriage return after all sequences, including 
responses to non-DECtalk-specific sequences such as device status request. 
Only responses generated within DECtalk are affected. Characters and escape 
sequences generated by a local terminal are sent without interpretation. 


The DECtalk support library does not interpret carriage return characters. You 
have to process carriage returns with an application program. (Usually, an 
application will ignore them.) 
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DETERMINING FIRMWARE REVISION LEVEL 

If your application environment has DECtalk units with different versions of 
— firmware (1.8 and 2.0) you may need to determine the revision level of а 
Ll particular unit. You can use the following steps to determine the firmware 
revision level. 





1. Use the extended DSR escape sequence in this chapter to clear all 
DECtalk errors. (Remember to note the DECtalk reply.) 


| 2. Use the following escape sequence to send a [+] phoneme. 
r^ ESC P ; 2 + ESC \ 

027 080 059 122 043 027 092 
| This is silent and new to revision level 2.0 only. 


e 3. Send another extended DSR escape sequence. If DECtalk is a firmware 
| revision level 1.8, it will report an error in the phonemic transcription. If 
DECtalk is revision level 2.0, it will not report any errors. 





е ESC [ 0 n ЕСІ ? 2 0 n 
027 091 048 110 027 091 063 050 048 110 
r^ (firmware 2.0 report) 


ESC [ 3 n ESC[ ? 2 5 n 
027 091 051 110 027 091 063 050 053 110 
(firmware 1.8 report) 





| Phonemic Alphabet 
Appendix A lists all phonemes you can use in the DECtalk phonemic alphabet. 
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C PROGRAM EXAMPLE 


This chapter provides the source listings of a sample DECtalk application 
written in C programming language. The program uses DECtalk, a host 
computer, and a telephone connection to the United States public telephone 
network 


You can copy and use this application program; however, the program is only a 
model, and cannot cover all possible DECtalk applications. You will find many 
algorithms and sections within the application that you can use in your own 
program; however, you will probably have to modify large sections of this 
program for your own needs. Also, there is no guarantee that this application 
program will run in the same way on your computer or on your public telephone 
system (especially if you do not live in the United States). 


The source programs are available from the DECUS Library (Digital Equipment 
Corporation User's Society) as 11-SP-58 (for PDP-11s) or V-SP-20 (for 
VAX/VMS). RSX and RSTS operating systems need a system services library 
distributed with DECUS C (DECUS 11-SP-18). All operating systems require a 


C compiler to compile the programs. The DECUS library also has versions of 


the library written in BASIC-PLUS and COBOL. 
To order the latest version of source programs from the DECUS Library, mail 
your request to: 


DECUS Order Processing 
МН02-1/С11 

One Iron Way 

Marlboro, MA 01752 


For general information before placing an order, call (617) 480-3422. 
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PROGRAM LANGUAGE AND STRUCTURE 

This application program is written in C, a language originally written for the 
UNIX operating system. C is a highly structured language, similar to Pascal, 
ALGOL, and COBOL in form and syntax. C is also reasonably transportable: 
the application program shown here can run on RSTS/E, RSX, UNIX, or 
VAX/VMS operating systems (if the correct compilers are on those systems). 


The application is written in many small modules, which are called according to 
a tree structure (Figure 6-1). There are many modules, because each module 
has only one or two functions within the program. The small, tight structure of 
each module means that their function is easy to read and grasp. 


All variables, constants, and other special values are listed in one module: 


DECTLK.H. You must include DECTLK.H with the compilation of all other 
modules. | 


APPLICATION PROGRAM "DEMO" 
| DT. ANSWER DT .HANGUP [| DT. TALK DT. OPEN | DT__CLOSE | 


DT. PHONE 


| DT .MSG 


| pr. READ| DT. PESC 


| OT__GESC | DT... SAVE | 
DT. GET| DT. IOPUT | 


[О 








DT. INKEY 


DT INIT 











T. IOGET 


MA-7600-83 


Figure 6-1 Calling Tree of DECtalk Application Program 
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HOW THE PROGRAM WORKS 

The application program waits for a caller to dial the DECtalk phone number. 
DECtalk then acts as a link between the host computer and the caller, passing 
a canned message to the caller and informing the host when the caller presses 
any keypad buttons. DECtalk releases the phone line (1) when the caller hangs 
up, or (2) if no response is received after a certain length of time. 


The program works as follows. 


1. When started, the program establishes the DECtalk- telephone-host oper- 
ating environment. DECtalk is set to wait for an incoming call. 


2. When a phone call is received, DECtalk answers the call and informs the 
host that a call is active. 


3. The host then sends a message for DECtalk to speak to the caller. This 
message informs the caller that the keypad can be used. 


4. At the end of the host message, the telephone keypad is enabled and the 
caller can send responses back to the host. 


5. The host responds with a “уои pressed button ...’ message when the 
caller presses a keypad button. If the caller doesn't press a button for 15 
seconds, the host tells DECtalk to hang up the phone. 
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VARIABLE NAMES AND DEFINITIONS 

All global variables and constants are defined in the module DECTLK.H. The 
function of an escape sequence or coded reply from DECtalk is not clear when 
embedded within a program; therefore, all escape sequences and status codes 
are given their mnemonic names in DECTLK.H. The program then refers to 
these names rather than the escape codes themselves. 


What follows is a list of the global variables, mnemonics, and codes used in the 


application program. 


Flags 


Two flags are used throughout the application program. The flags control 
certain critical actions, as follows. 


dt abort 


dt debug 


Error Codes 


This flag is normally FALSE. If dt trap() is called, the 
library will trap a CTRL-C (or INTERRUPT on UNIX). 
If the user types CTRL-C, the flag is set to TRUE and 
all library modules exit as quickly as possible. 


This flag can be set nonzero by an application pro- 
gram to enable debug printouts. Note that the library 
must have been compiled with dt debug defined in 
order to compile in the necessary print calls. 


The library may return the following error codes. The error codes are all less 
than zero, so they cannot be defined as part of the ASCII character set. 


DT. ERROR 


DT. TIMEOUT 


IO. ERROR 


An operating system error occurred. 


An input operation did not complete in the required 
(operating system) time. 


This is an error exit code for the exit() library routine. 
The value selected depends on the particular oper- 
ating system. 


ООС 


22227 


177 


11771 


АЛУ 


apneo 


apertum: 





C PROGRAM EXAMPLE 73 


DECtalk-Specific Parameters 
Certain codes apply only to DECtalk (and not other devices, such as terminals). 
These codes are as follows. 





CSL DA PRODUCT The DECtalk product identification code. 





| DCS_F_DECTALK The DECtalk specific device control sequence (DCS) 
final character. 
P1_DECTALK All DTCO1-AA DCS sequences send this for their first 
(P1) parameter. 
| R1. DECTALK А! DTCO1-AA DCS replies send this for the first (R1) 
== reply parameter. 
DECtalk Commands 
шеш The DECtalk commands that do not require specific parameters are coded as 
| follows. 
m P2. PHOTEXT Speak phonemic text. 
P2. STOP Stop speaking. 
P2 SYNC Synchronize. 
m^ P2 SPEAK Enable/disable speaking. 
= P2. INDEX Index text. 
| P2 IX REPLY Index with reply. 
l P2 IX QUERY Return last spoken index. 
mm P2. DICT Load user dictionary. 
P2. PHONE Telephone control 
=" (See “Telephone Control Parameters.’’) 
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P2 MODE Synthesis mode control. 
P2 LOG Local terminal log control. 
P2 TERMINAL Local terminal control. 


Telephone Control Parameters | 
The telephone control command P2. PHONE takes an additional parameter to 


specify the specific telephone action. pee 
P3 РН STATUS Send a status report. 
P3. РН. ANSWER Answer on P4 rings. 
P3 РН HANGUP Hang up the phone. m 
P3. PH. KEYPAD Enable keypad data entry. m 
P3. РН. NOKEYPAD Disable keypad data entry. 
P3. РН. TIMEOUT Send a timeout report if no data entered in P4 | 
seconds if P4 is greater than zero; disable time- 
outs if P4 is zero. [^*^ 
P3. РН. ТОМЕ Dial out using Touch-Tones. 
P3. PH. PULSE Dial out using pulses. 
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DECtalk Replies 
Several P2. commands return messages to the host. 


R2. IX. REPLY Reply to P2. IX. REPLY. R3 contains the last index 
processed. 

R2. ІХ . QUERY Reply to P2. ІХ QUERY. АЗ contains the last index 
processed. 

R2. DICT Reply to P2. DICT. R3 contains the dictionary entry 
status code. 

R2. PHONE Reply to P2. PHONE. R3 contains the telephone 
status. 


DECtalk returns the following ВЗ parameters after a P2. PHONE command. 
R3. РН ОМНООК Telephone is hung up (inactive). 
R3. РН OFFHOOK Telephone is answered (active). 


R3. РН. TIMEOUT No data was entered by the telephone user within the 
required number of seconds. 


R3 РН TOOLONG А telephone number to dial is too long. 

DECtalk returns the following АЗ parameters after a P2 ПІСТ command. 
R3_DI_LOADED Dictionary entry was loaded. 

R3_DI_NOROOM The user dictionary is full. 


R3_DI_TOOLONG The dictionary entry is too long. 
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Self-Test Parameters 
The following parameters control the DECtalk self-test (DECTST). 


TEST_POWER Rerun power-up test. 
TEST_HDATA Run host data link loopback test. 
TEST_HCONTROL Run host line control test. 
TEST_LDATA Run local line data test. 
TEST_SPEAK Speak a canned message. 


The following status codes are returned by the extended DSR sequence. 


DSR_OK No errors detected. 

DSR_COMFAIL Communication failure. 

DSR_INBUFOVER Input buffer overflow. 

DSR_DECNVRFAIL Last restore from nonvolatile memory failed. 
DSR_PHONEME Incorrect phoneme entered. 

DSR_PRIVATE DECtalk DCS parameter error. 


DSR. DECTSTFAIL Last DECTST self-test failed. 


——— 
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Logging Command Parameters 
The following parameters configure the P2. LOG command. 


LOG. TEXT 


LOG. РНОМЕМЕ 


LOG. RAWHOST 


LOG. INHOST 


LOG. .OUTHOST 


LOG. ERROR 


LOG. TRACE 


Log spoken text. 
Log generated phonemes. 


Log all characters received from host without 
change. 


Log all characters received from host in visible 
format. 


Log all output to host in visible format. 
Log error messages. 


Log commands in mnemonic form. 


The following parameters are for the P2 TERMINAL command. 


TERM. HOST 


TERM. SPEAK 


TERM. EDITED 


TERM. HARD 


TERM. SETUP 


TERM. FILTER 


Send text entered from the local terminal to the 
host. 


Speak text entered from the local terminal. 
Line-edit text entered from the local terminal. 
Use hardcopy edit conventions. 

Speak setup dialog. 


Filter sequences sent to the local terminal. 


The following parameters are for the P2. MODE command. 


MODE. SQUARE 


MODE. ASKY 


MODE. MINUS 





Accept [ ] bracket phonemic text. 
Use single-letter phonemic alphabet. 


Pronounce a hyphen (-) as "minus." 


78 C PROGRAM EXAMPLE 


THE SEQUENCE DATA STRUCTURE | 

The C language uses a powerful form of information control called a data 
structure. Data structures closely resemble Pascal records and can pass and 
hold multiple pieces of information. 


А! information needed to generate and parse escape sequences is in the 
SEQUENCE data structure. SEQUENCE is configured by the following size 
constants. 

SEQ ІМТМАХ Maximum number of intermediate characters. 


SEQ. PARMAX Maximum number of parameters. 


The SEQUENCE data structure contains the following components. 


short state Processing state or introducer character to send. 

char final Final character in sequence. 

char private Private introducer character (or X to indicate an 
error). 

short param[] Private parameters (unsigned); param[0] con- 


tains the number of parameters. 


char inter[] Intermediate characters; inter[0] contains the 
number of intermediates. 


АП information needed by the application program is in the DECTALK data 
structure which is created by dt open() and freed by dt close(). The DECtalk 
data structure is configured by the following parameters. 


PEND. SIZE Maximum number of keypad characters that may 
be typed ahead. Additional characters are 
discarded. 

IN. BUFLEN Size of the operating system input buffer. 


OUT. BUFLEN Size of the operating system output buffer. 
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pem The data buffer contains the following information. 
DECTALK *link Chains together all active units. 
| int unit Operating system І/О channel. 
| short timeout TRUE if timeouts enabled. 
к= short pend. fc Bytes in pending buffer. 
short pend. fp Index to free byte in pending buffer. 
| short pend. ер Index to next byte to return from pending buffer. 
me char *in. ptr Input buffer pointer. 
char "in. end Input buffer end. 
| char *out. ptr Output buffer free pointer. 
SEQUENCE send Last DCS sequence sent. 
— SEQUENCE reply Last DECtalk reply received. 
SEQUENCE seq Look-ahead for string terminator processing. 
| char *device Remember dt open() device name for debug 
printouts. 
char pend[] Type-ahead buffer. 
| char in. buff[] Input buffer. 
c char out. buff[] Output buffer. 
struct sgtty stty. save Terminal characteristics block (UNIX only). 
ЖЕ FILE *fildes File descriptor (RSX only). 
= struct iosb iosb I/O status block (RSX only). 
struct dioparm parm QIO parameter block (RSX only). 
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APPLICATION PROGRAMS 
The rest of this chapter lists the modules used to build the complete application 
program. All modules with the indicator comment 


[)LIBRARY 
should be compiled and loaded into an object library. The main program, 


DEMO.C, is compiled and linked with the DECtalk library and the C standard 
library. 


The modules appear in the following order (Table 6-1). 
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DECTLK.H 

DECTLK.H must be included in all modules that use the DECtalk applications 
library. This file also defines common ASCII characters, DECtalk escape 
sequence parameters, library globals, and the DECtalk buffer structure. You 
can edit this file to enable debugging code defined by the DTDEBUG flag. 


Definitions a n а Globals 
This file contains symbolic definitions of the structures 
and characters used by DECtalk application programs, 


including all DECtalk escape sequence parameters. 


Note: on RSX-11M, your program must first #include <stdio.h> 


«ажа ж ж ж ж ча ж 


/% 
* Select a UNIX "flavor" (bizarre code as DECUS С lacks “defined ()") 
“/ 

Fifdef unix 

#ifndef BSD.42 

Fifndef UNIX.V 

#define UNIX.V 

#endif 

#endif 

Fendif 


#ifdef DOCUMENTATION 


title dectlk.h DECtalk Library Header File 
index DECtalk library header file 
synopsis 


#include "dectlk.h" 
description 


This file is included in the compilation of all 
modules that use the DECtalk applications library. 
It defines common ASCII characters, DECtalk 

escape sequence parameters, library globals, 

and the DECTALK buffer structure. 


configuration 


You can edit dectlk.h to enable debugging code 
by defining the DT.DEBUG flag as follow. 


define DT.DEBUG 1 
This changes the primary input and output routines 


зо that they become capable of logging all characters 
transmitted to and from the DECtalk device. 
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globals 


The library provides two global flags which are used 


as follows. 


dt.abort 


dt-debug 


error codes 


This is set non-zero by an 
intercepted CTRL-C trap Cif you 
have called dt_trap(€)). When set, 
по 1/0 will be performed, and 
library subroutines will exit as 
quickly as possible. 


This may be set nonzero by an 
applications program to enable 
debug printouts. Note that the 
library must have been compiled 
with DT.DEBUG defined in order to 
compile in the necessary print 
calls. 


The library may return the following error codes. 
These are all less than zero, and consequently 
cannot be part of the ASCII character set. 


DT_ERROR 


DT-TIMEOUT 


IO-ERROR 


An operating-system error. 


Ап input operation did not 
complete in the required 
Coperating-system) time. 


Ап error exit code for the 
exit@) library routine. The 
value is selected as appropriate 
for the particular operating 
system. 


Routines implemented as macros 


Certain frequently routines may be implemented as 
macros Cif macro expansion is supported by the 
particular С compiler). These are as follows. 


dt.iskey(Cdt) 


dt.isvalidCc) 


dt-ptestCdt,r3) 


TRUE if data is currently 
stored in the keypad type-ahead 
buffer. 


TRUE if the character is a 

valid keypad character. 

Note: evaluation of the argument 
must not have side-effects. I.e., 


you must not write dt. isvalidC*p**). 


Phone test, TRUE if the current 
reply is R2.PHONE, ЕЗ. 
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dt_offhook(dt) Phone test, TRUE if the current 
reply із R2.PHONE, R3.PH.OFFHOOK. 


dt.onhookCdt) Phone test, TRUE if the current 
reply is R2.PHOÜNE, R3_PH_ONHOOK. 


dt-istimeoutC€ dt) Phone test, TRUE if the current 
reply із R2_PHONE, R3.PH-TIMEQUT. 


dt-phoneCdt,p3,p4) Send a phone message. 


dt_eolCdt) Send "end of line" and force 
output to DECtalk. 


general definitions 
The following variables are defined. 


EOS End of string 
FALSE For TRUE/FALSE testing 
TRUE For TRUE/FALSE testing 


ascii characters 
The following С0 control characters are defined. 
NUL 6ТХ ЕТХ BEL BS VT LS1 
(50 ХОМ ХОРЕ САМ SUB ESC DEL 
The following C1 control characters are defined. 
552 553 DCS OLDID CSI ST OSC 
PM APC RDEL 


The following DECtalk-specific parameters are 
also defined. 


CSI_DA_PRODUCT The DECtalk product 
identification code. 


DCS_F_DECTALK The DECtalk specific device 
control sequence (DCS) final 
character. 


P1-DECTALK All DCTO1 DCS sequences 
transmit this for their first 
(P1) parameter. 


R1-DECTALK All DCTO1 DCS replies transmit 
this for the first R1 reply 
parameter. 
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The P2 and P3 parameters select the specific DECtalk command. 


P2_PHOTEXT 
P2_STOP 
P2_SYNC 
P2_SPEAK 
P2_INDEX 
P2_IX__REPLY 
P2_IX_QUERY 
P2_DICT 
P2_PHONE 
P2_MODE 
P2.LOG 
P2_TERMINAL 
P2_MASK 


Speak phonemic text. 

Stop speaking. 
Synchronize. 
Enable/disable speech. 
Index text. 

Index with reply. 

Return last spoken index. 
Load user dictionary. 
Telephone control. 
Synthesis mode control. 
Local terminal log control. 
Local terminal control. 
Keypad mask control. 


The telephone control command takes an additional 
parameter to specify the specific telephone action. 


P3_PH_STATUS 
P3_PH_ANSWER 
P3_PH_HANGUP 
P3_PH_KEYPAD 
P3_PH_NOKEYPAD 
P3_PH TIMEOUT 


P3_PH_TONE 
P3_PH_PULSE 


Several P2 commands 


R2_IX_REPLY 


R2.IX-QUERY 


R2_DICT 


R2_PHONE 


Return a status report. 
Answer on P4 rings. 

Hangup the phone. 

Enable keypad data entry. 
Disable keypad data entry. 
Send a timeout report if 

no data entered in P4 seconds 
if P4 is greater than zero; 
disable timeouts if P4 is zero. 
Dial out using tones. 

Dial out using pulses. 


return messages to the host. 


Reply to P2.IX.REPLY. R3 
contains the last index 
processed. 


Reply to P2_IX_QUERY. ЕЗ 
contains the last index 
processed. 


Reply to P2.DICT. R3 
contains the dictionary entry 
status code. 


Reply to P2.PHONE. R3 
contains the telephone status. 


The following R3 parameters are returned after a 


P2.PHONE command. 


R3-PH-ONHOOK 


R3_PH_OFFHOOK 
R3-PH-TIMEQUT 


R3-.PH-TOOLONG 


Telephone is hung up Cinactive). 


Telephone is answered Cactive). 

No data was entered by the 
telephone user within the required 
number of seconds. 


A telephone number to dial is 
too long. 
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The following R3 parameters are returned after a P2.DICT 





command. 
R3-DI-LOADED Dictionary entry was loaded. 
R3_DI_NOROOM The user dictionary is full. 
R3_DI_TOOLONG The dictionary entry is too long. 


The following codes are used to control host-requested 





m self test CDECTST). 
TEST_POWER Rerun power up test. 
TEST-HDATA Host data link loopback test. 
1 TEST-HCONTROL Host line control test. 
TEST-LDATA Local line data test. 
TEST.SPEAK Speak a canned message. 
Р É The following status codes are returned by the extended 
DSR sequence. 
DSR- OK No errors detected. 
oo DSR-COMFAIL Communication failure. 
| DSR_INBUFOVER Input buffer overflow. 
DSR-DECNVRFAIL Last restore from nonvolatile 
memory failed. 
Р ~ DSR-PHONEME Incorrect phoneme entered. 
| os DSR-PRIVATE DECtalk DCS parameter error. 
DSR-DECTSTFAIL Last DECTST self-test failed. 
=" The following flags configure the P2.LOG command. | 
м | 
LOG-TEXT Log spoken text. 
pm LOG-PHONEME Log generated phonemes. 
LOG_RAWHOST Log all characters received 


from host without change. 





LOG_INHOST Log all characters received 
from host in “visible” format. 
pem LOG_OUTHOST Log all output to host in 
EO visible format. 
LOG_ERROR Log error messages. 
p 
LOG-TRACE Log commands in mnemonic form. 
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The following flags are for the P2.TERMINAL command: 


TERM. HOST Send text entered from the 
local terminal to the host. 

TERM SPEAK Speak text entered from the 
local terminal. 

TERM -EDITED Line-edit text entered from 


the local terminal. 
ТЕКМ_НАКО Use hard-copy edit conventions. 
TERM-SETUSPEAK Speak SETUP dialog. 


TERM.F ILTER Filter escape sequences sent 
to the local terminal. 


The following flags are for the P2_MODE command. 


MOÜDE- SQUARE [ 1 bracket phonemic text. 
MODE_ASKY Use single-letter phonemic 
alphabet. 

MODE-MINUS Pronounce *'-* as "minus." 


The following flags are for the dt-splice() function. 
SPLICE_SPEAK DECtalk speaks text if set. 


SPLICE.LOG Text sent to DECtalk is sent to the 
terminal CP2.LOG, LOG_RAWHOST). 


SPLICE_TERM The terminal may send text to 
DECtalk СР2_ТЕВМ, TERM_HOST). 


Escape sequence data buffer 


All information needed to generate and parse 
escape sequences is contained in the SEQUENCE 
data structure. It is configured by the following 
size constants. 


SEQ_INTMAX ; Maximum number of intermediate 
characters. 


SEG. PARMAX Maximum number of parameters. 
It contains the following components. 


short state Processing state or introducer 
character io send. 


char final Final character in sequence. 


char private Private introducer character 
or 'X* to indicate an error. 
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pum short param[]) Private parameters Cunsigned); 
| param(0] contains the number of 
parameters. 


pu char interl] Intermediate characters; 
| inter[0] contains the number of 
intermediates. 


em DECTALK data buffer definition 


А11 information needed by the DECtalk applications 
| library is contained in the DECTALK data structure 
pm which is created Бу ді. ореп() and freed by dt-close(). 
| It is configured by the following parameters. 


PEND-SIZE Maximum number of keypad 
== characters that may be typed-ahead. 
L Additional characters are discarded. 


IN-BUFLEN Size of the operating system input 
pum buffer. 
OUT_BUFLEN Size of the operating system output 
buffer. 





ж. The data buffer contains the following information. 


| 











DECTALK *link Chains together all active units. | 
short unit Operating system 1/0 channel. | 
| 
| 
short timeout Current timeout value | 
р short flag Speech and dt.splice flags. | 
short pend.fc Bytes in pending buffer. | 
E 1 short pend_fp Index to free byte in pending 
buffer. 
short pend_ep Index to next byte to return 


from pending buffer. 


char *in.ptr Input buffer pointer. 
MEE char *1п_епд Input buffer end. 
char *out.ptr Output buffer free pointer. 
boo SEQUENCE send Last DCS sequence sent. 
SEQUENCE reply Last DECtalk reply received. 
| SEQUENCE seq Look-ahead for string terminator 
| processing. 
— char *device Remember dt.open() device name 


for debug printouts. 
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char pendit] Type-ahead buffer. 
char in-buff[] Input buffer. 
char out-buff[]J Output buffer. 


struct termio stty.save Terminal characteristics 
block CUNIX System V). 


struct sgtty stty. save Terminal characteristics 
block CUNIX 4.2 BSD). 


FILE *fildes File descriptor (RSX). 
struct iosb iosb I/0 status block CRSX). 


QIOPARM parm QIO parameter block (RSX). 
CRSX only). 


int#pos_xk TRUE if POS XK: driver 
СКХ only). 


The flag entry controls library internal states. 


-FLAG.SPEAK Set if DECtalk is speaking. 
-FLAG.LOG Set if LOG RAWHOST is set. 
~FLAG_TERM Set if TERM HOST is set. 


-FLAG-EIGHTBIT Set to read and write eight-bit 
data and control sequences. 


FLAG-SPEAK, FLAG_LOG, and FLAG_TERM should not be changed 
by application programs. 


FLAG-EIGHTBIT must be set by the application program if 
DECtalk sends and receives C1 control sequences in their 
8-bit form. Note that the application program must 
ensure that the operating system passes 8-bit data 
correctly and DECtalk setup must set HOST FORMAT to МОМЕ. 


UNIX Notes 


Note 


#endif 


/* 


Оп UNIX System V, the DECtalk terminal line is 
forced to 9600 Baud. This may be changed to 

retain the current Baud rate. Also, you should 

be aware that there are numerious subtle differences 
between operating systems. 


UNIX and System V are trademarks of AT&T Bell Laboratories. 


* Define DT_DEBUG to enable debug printouts of transmitted 
* characters. 


*7/ 
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#define DT.DEBUG 


Kdefine FALSE 0 
































#define TRUE 1 
#ifndef EOS 
#define EOS "\0” 
*endif 
р #ifdef unix | 
| #ifdef В5р_42 | 
#include <sgtty.h> 
— #е] зе 
PF Fifdef | UNIX.V 
#include «termio.h» 
#endif 
fendif 
#endif 
pm 
* These error codes may not be in the ASCII range. 
define DT_ERROR €-1) 
#define DT-TIMEQUT €-2) 
* C0 control characters | 
+ / | 
define NUL 0x00 /* NUL code * / | 
define STX 0x02 /* Start of text ту [ 
#define ETX 0x03 /* End of text “/ | 
define BEL 0x07 /* Bell ay | 
*define BS 0x08 /* Backspace 74 
fdefine VT 0x0B /* Vertical tab C*N013*) ay 
#define LS1 0х0Е /* (51 <509 *7 
#define 150 0x0F /* (50 CSI) * / 
#define ХОМ 0x11 /* DC! "y 
#define ХОҒҒ 0x13 /* DC3 */ 
define CAN 0x18 /* Cancel «CTRL/X» *7 
D #define SUB 0x14 /* Substitute */ 
es s fdefine NUL 0x00 /* Null code 2 
#define ESC 0x1B /* Escape “/ 
define DEL 0х7Ғ /* Delete d 
E s * C1 control characters 
ЯУ 
p #define 552 0х8Е /* Single shift 2 */ 
i ФаеҒіпе 553 0x8F /* Single shift 3 */ 
#define DCS 0x90 /* Device control sequence rd 
#define OLDID 0x9A /* ESC 2 ЫА 
p #define CSI 0x9B /* Control Sequence Introducer  */ 
i fdefine ST 0x9C /* String terminator */ 
fdefine 05С 0x9D /* Operating System sequence Ыс 
#define PM 0х9Е /% Privacy Message “у 
*define АРС 0x9F /* Application Program Control */ 
#define RDEL OxFF /* Delete in right side * / 





NL 
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ТЯ 


fdefine CSI.DA.PRODUCT 19 /* Dectalk DA product code "f 


/* 

* Basic definitions for DECtalk device control 

* strings. All DECtalk sequences have a first parameter of 

* P1_DECTALK. This provides an easy place for future DECtalk 
* products to fit into the scheme of things. 


71777 


"y 
*define DCS_F_DECTALK 2" /* DECtalk final к” 
fdefine P1_DECTALK 0 /* DECtalk param 1 “7 
ФаеҒіпе R1_DECTALK 0 /* DECtalk reply param 1 * / | 
/* 
* The second parameter selects the basic command. 
*/ 
#define P2.PHOTEXT 0 /* Speak phonemic text */ 
fdefine Р2.5ТОР 10 /* Stop speaking "f 
ФаеҒіпе P2.SYNC 11 /* Synchronize "i "RR 
define P2_SPEAK 12 /* Enable or disable speaking %/ | 
fdefine P2_INDEX e0 /* INDEX */ 
*define P2_IX_REPLY 21 /* INDEX_REPLY ”“/ 
#define P2_IX_QUERY 22 /* INDEX QUERY ey | | 
define P2_DICT 40 /* Dictionary control * / | | 
define Р2_РНОМЕ 60 /* Phone control ту | 
define Р2. МОРЕ 80 /* Synthesis mode control */ 
define P2_L0G 81 /* (06 information on local tty */ 
define P2_TERMINAL 82 /* Local terminal control T7 | | 
ФаеҒіпе Р2. МА5К 83 /* Set keypad mask */ | : 
/* 
* Additional parameters for the phone command. [^ 
define P3_PH_STATUS 0 /* Send a status report Жу 
#define РЗ.РН.АМ5МЕК 10 /* Answer (P4 has ring number) %/ кү 
#define P3.PH.HANGUP 11 /* Hangup "y 7 
define P3.PH.KEYPAD 20 /* Raw keypad 77 
define P3.PH.NOKEYPAD 21 /* Disable keypad "E 
define P3.PH-TIMEOUT 30 /* Status report on timeout udi 
#define РЗ_РН_ТОМЕ 40 /* Dial out t mE 
#define P3.PH.PULSE 41 /* Dial out */ 
/* 
* The second parameter in a reply specifies the general class | | 
* of the reply sequence. 
*/ 
#define R2.IX.REPLY 31 /* Sent after INDEX.REPLY “/ T 1 
#define R2.IX -QUERY 32 /* Sent after INDEX -QUERY 1 
define R2.DICT 50 /* Sent after DICT *7 
define R2.PHONE 70 /* Telephone status report "7 


ААО 


КООШО 
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/* 
* Additional reply information is passed in ihe third parameter. 
*£ 








define R3.PH-ONHOOK 0 /* Hung up ae 
#define R3.PH-OFFHOOK 1 /* Phone is lifted */ 
#define R3.PH-TIMEOUT 2 /* No reply in N seconds wy 
define R3.PH-TOOLONG 3 /* Telephone # text too long “/ 
#define R3_DI_LOADED 0 /* Dictionary entry loaded ok S 
#define R3_DI_NOROOM 1 /* No room in dictionary */ 
#define R3_DI_TOOLONG 2 /* String too long ”/ 


* Test specification codes for the request self test 
+ (DECTST) sequence. 























ih 
#define TEST_POWER 1 /* Rerun power up tests “/ 
#define TEST.HDATA 2 /* Host line data loopback test */ 
define TEST-HCONTROL 3 /* Host line control test +y 
#define TEST-.LDATA 4 /* Local line data test * / 
#define ТЕ5Т.5РЕАК 5 /* Speak a canned message ay 
/* 
Fr * Error (апа success) codes for the extended DSR sequence. 
#define DSR_OK 20 /* All OK Tf 
#define DSR.COMMFAIL 22 /* Communication failure a A 
#define DSR.INBUFOVER 23 /* Input buffer overflow ud 
define DSR.DECNVRFAIL 24 /* Last DECNVR failed */ | 
#define DSR.PHÜNEME 25 /* Error in phonemic text */ | 
define DSR_PRIVATE 26 /* Error in DECtalk private DCS */ | 
#define DSR.DECTSTFAIL 27 /* Last DECTST failed * / | 
£* | 
* Local logging flags for the P2-L0G command. 
* / 
#define LOG_TEXT 0x0001 /* Log text that is spoken */ 
— #define LOG_PHONEME 0x0002 /* Log generated phonemes * / 
AN #define LOG_RAWHOST 0x0004 /* Log raw host input * 4; 
fdefine LOG_INHOST 0x0008 /* Log host input „4 
#define LOG_OUTHOST 0x0010 /* Log host output "4 
#define LOG_ERROR 0x0020 /* Log errors 7 
#define LOG_TRACE 0x0040 /* Log sequence trace info. * / 
/* 
pem * Local terminal flags for the Pe.TERMINAL command. 
E ui 
define TERM_HOST 0х0001 /* Send text to host my 
mem #define TERM_SPEAK 0x0002 /* Speak local terminal input ЖР 
E. #define TERM_EDITED 0x0004 /* Edited az 
#define TERM-HARD 0x0008 /* Local terminal is hardcopy ы 4 
define TERM.SETUSPEAK 0х0010 /* Spoken setup mode ы 
#define TERM_FILTER 0x0020 /* Filter logged esc. sequences */ 
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/* 

* Mode flags for the P2_MODE command. 

*/ 
#define MODE_SQUARE 0x0001 /* [ ] are phonemic brackets Ty 
fdefine MODE.ASKY 0x0002 /* Use ASKY alphabet ТЖ 
fdefine MODE_MINUS 0x0004  /* "-" is pronounced "minus" “/ 
/* 

* Flags for dt.splice() and ((DECTALK *)dt)->flag 

ый 
fdefine SPLICE_SPEAK 0x0001 /* Speak text if set */ 
fdefine SPLICE_LOG 0x0002 /* Log rawhost if set Же 
#define SPLICE_TERM 0x0004 /* Local host if set “ү 
*define .FLAG.SPEAK 0x0001 /* Speaking, set by dt.splice(C) */ 
*define _FLAG_LOG 0x0002 /* Log rawhost from dt_splice() */ 
*define .FLAG.TERM 0х0004  /* Term host from dt_splice() ud 


*define _FLAG_EIGHTBIT 0x0008 /* Read eight-bit C1 controls * / 


/* 
* These macros and structure definitions are used by the escape 
* sequence parser. 


*/ 
Fdefine SEQG.INTMAX 2 /* Max. * of intermediates */ 
fdefine SEQ_PARMAX 16 /* Max. * of parameters 227 
/* 


* dt-gesc€) (get escape sequence) and dt-pescC) (put escape 
* sequence) use this structure for all processing. 
ых 


typedef struct { 


short state; /* Processing state or intro * i 
char final; /* Final character in seq. Ж 
char private; /* Private introducer ыға 
Fifdef decus 
unsigned param(€SEQ_PARMAX+11]; 
Felse 
unsigned short param[SEQ_PARMAX+1]; 
endif 
/* Intermediate count, values * / 
char inter [SEG INTMAX*11; 


} SEQUENCE ; 


/* 
* The DECTALK structure is used to maintain all information 

* needed to process a DECtalk device. It is allocated by 

* ді_ореп(), freed by dt.close() and а required parameter 
by essentially all routines. 
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m #ifdef rsx 
| /* 
* The qio parameter block controls all RSX11-M 1/0 requests. 
Tf 
typedef struct qioparm + /* GIO parameter block */ 
char *buffer; /* Buffer location т 
int size; /* Bytes to transfer */ 
char *p3; /* For ctrl/c ast ”/ 
m char *table; /* Terminator table *7 
| | їтї unused[21]; /* Not used here af 
} QIGPARM; 
| * The 1/0 status block receives the status of all 1/0 requests. 
*/ 
typedef struct iosb 5 /* 1/0 status block *7 
ры” char status; /* Üperation status TF 
! char terminator; /* Input terminator byte * / 
int count; /* Bytes read from device "y 
} IOSB; 
fendif 


fifndef PEND-SIZE 
#define PEND-SIZE 32 /* Pending buffer size */ 
1 fendif 
E od #ifndef IN BUFLEN 
#define IN -BUFLEN 32 
fendif 
fifndef OUT.BUFLEN 
#define OUT_BUFLEN 128 
| #endif 
| #1 + CIN-.BUFLEN < 1 11 OUT.BUFLEN < 1 11 PEND-SIZE < 1) 
|o qnm << error, mandatory parameters aren't correct >> 











Е | fendif 





typedef struct DECtalk ( 





struct DECtalk *link; /* Chain all units together “/ 
short unit; /* 1/0 channel А 
short timeout; /* For dt-timeout() vy 
short flag; /* Speech and "splice" flags РУ 
pem short pend_fc; /* Bytes in pending buffer * / 
AMEN short pend_fp; /* Pending buffer fill index * / 
short pend-ep; /* Pending buffer empty index */ 
char *in-ptr; /* 1/0 input buffer pointer * / 
pem char *in_end; /* -» end of input buffer * / 
b char *out_ptr; /* -» free spot in output buff. */ 
SEQUENCE send; /* Last sequence sent */ 
SEQUENCE reply; /* Last sequence read af 
pem SEGUENCE seq; /* Sequence look-ahead */ 
E char *device; /* DECtalk hardware device T 
char ретагрЕНр.512Е1; /* Type-ahead ring buffer 4 
char = in-buff[IN-BUFLEN]; /* 1/0 input buffer "7 
char out-buffLOUT-BUFLEN]1; /* 1/0 output buffer "7 
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/* 


* The following entries are operating-system specific. 


ы 
#ifdef unix 
“ifdef В5р_42 

struct sgttyb stty_save; 
#else 
ifdef UNIX_V 

struct termio stty_save; 
#endif 


#endif 

*endif 

*ifdef rsx 
FILE *fildes; 
105В iosb; 
QIOPARM parm; 
short pos-xk; 

белді 


} DECTALK; 


м 
* 


* 


Certain short routines and 


as returned by dt_open(). 
not have "side-effects". 


dt-iskeyCdd) 
dt.isvalidCc) 


dt_ptest(dd, r3) TRUE 
dt.offhookCdd)D TRUE 
dt.onhookCdd) TRUE 
dt_istimeout (dd) TRUE 


dt_phone(€dd,p3,p4) Send 
dt-get(dd, sec) Read 
dt-putCdd, c) Send 
dt.eolCdd, c) Send 


ж k ж ж «ж жж ж ж ж о ж ж ож о ж ж ж ж ж ж ж ож ож ож ж 


/ 


/* 


/* 


/* 
/* 
/* 
/* 


Terminal flags 


Terminal flags CUNIX V7) 


File descriptor 

I/0 status block 

QIO parameter block 

Device characteristics word 


common tests are expressed as 


Note 


macros. In all instances, 'dd' is a DECtalk 1/0 descriptor 


that the arguments should 


TRUE if something in type-ahead buffer. 
TRUE if argument is a valid keypad key. 


The following are only useful after executing dt_phone(). 


if specific phone reply. 

if last DECtalk reply is OFFHOOK. 
if last DECtalk reply is ONHOOK. 
if last DECtalk reply is TIMEOUT. 


The following simple commands may be written as macros: 


a phone message. 

a character Cwith timeout) 

a character to DECtalk 

"end of line", flush output buffers 


If DT-DEBUG is #defined, dt.get() and dt.put() are functions 
which may log all characters to the standard output stream. 


* J 


* / 


* / 
* d 
*/ 
* / 


т, 


а 
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#ifndef DT.DEBUG 





#define dt.get dt-ioget 

define dt.put dt-ioput 

*endif | 

Fifndef nomacarg 

define dt_iskey(dd) C(dd-»pend.fc != 0) 

define dt-isvalid(c) СО Cc >= *0* && с <= 79°) \ 
ii c == *9* || c == #*° \ 


= ti (с >= ‘А’ && c <= DDD) 
= define dt_ptest(dd,r3) (dt.-testCdd, R2-PHONE, r3)) 
#define dt.offhookCdd) (Cdt-ptest€dd, R3_PH-OFFHOOK)) 
#define dt_onhook(Cdd) Cdt_ptest(dd, R3.PH-ONHOOK)) 
#define dt _istimeout( dd) Cdt-ptestCdd, ЕЗ.РН.ТІМЕПУТ22 
#define dt.phoneCdd,p3,p4) Cdt-msgCdd, \ 

P2_PHONE, p3, p4, R2.PHONE, -1)) 





#ifdef unix 








#define dt.eolCdd) Cdt_put(dd, ‘’\n’), dt-putCdd, 029 
Феізе 
#define дї _ео1 Саа) Саї_риї саа, *’\г’», \ 
dt_put(dd, ‘’\n’), дї _риї саа, 0922 
#endif 
Fendif 


#ifdef decus 
#ifdef  DT.DEBUG 
/* 
* This forces traceback on Decus C systems. 
* / 
Fdefine exit error 
define IO.ERROR "fatal DECtalk 1/0 error" 
fendif 
fendi + 








#ifndef IO.ERROR 

#ifdef vms 

“include «ssdef.h» 

#define IO.ERROR SS$ .ABORT 

felse 

#define IO -ERROR 2 

#endif 

#endif 

/* 
“ dt_abort may be set by a user program at any time to 
“ stop DECtalk. Typically, it would be set by dt.trap(O 
* when a «CNTL/C» (UNIX INTERRUPT signal) is typed by the 











pem * terminal user. 

| | * / 
extern int dt.abort; /* Set TRUE to stop */ 
extern DECTALK  *dt.root; /* Root of device chain */ 

pm #ifdef  DT.DEBUG 

L n extern int dt_debug; /* TRUE if debug log “ 
Fendif 
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DEMO.C 
The executable program's name is DEMO, derived from this program. DEMO.C 
is the main module of the program. 


1. || 


#include <stdio.h> 
include "dectlk.h" Е 


mainCargc, argv) 


int argc; 
char *argvE1; —— 
1 | 
register DECTALK *dt; /* Dectalk device * / 
register int retries; /* Initializations */ 
register int ncalls; /* Completed calls */ €— 
char *dev; 


extern DECTALK *dt_open(); 


dev = '"TT2:''; — 
if Сагас > 1) | 
dev = argv[ 11; 
retries = 0; 
ncalls = 0; —_ 
dt_debug = TRUE; | | 
if (Cdt = dt-open€dev)) == NULL) { 
perrorCdev); 





return; 
} 
dt_trap(); /* Catch CTRL-C abort */ 
while Cdt_init(dt)) { /* One-time setup at 
dt.dcsCdt, P2.MODE, MODE_SQUARE, -1); тығы 
retries**; /* Count attempts * / | | 
while Cdt-answer(dt, 12) 5 /* Answer the phone * / 
if Cprocess(dt)) { /* Do user process */ 
ncalls**; /* User ran ok, ”/ ЧЕЙРЕ 
retries = 0; /* Clear retry count %/ bed 
} 
dt-hangup(Cdt); /* Hangup the phone * / 
if Cdt.abort) /% Check interrupt “/ — 
goto finis; /* Error exit *7 | | 
h 
if (dt-abort) 
goto finis; /* Error exit ul À а 
if Cretries > 2) { /% Got lost? | еу | | 
printfC"Too many retries\n"); 
break; 
} рии 


fprintf(stderr, "Couldn't initialize DECtalk\n"); 


Бан | 
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finis: dt.abort = FALSE; /* Restart output * / 
dt-resetCdt); /* Hangup DECtalk ж/ 
dt_putCdt, 0); /* Force out buffer “/ 
dt_closeCdt); /* Close up DECtalk ik J 

} 

process(dt) 

register DECTALK *dt; 

{ | 
register char с; /* Keypad character "A 
char work[30]; /* For echo message * / 


dt.talkCdt, "Welcome to DECtalk"); 








if (!dt_keypad(dt, TRUED) /* Enable keypad */ 
return (FALSE); /* Error occurred */ 

for (33) + /* Do forever... */ 
с = dt.inkeyCdt, 15); /* Key with timeout */ 

if C'dt_isvalid(c)) /* Check for timeout  */ 
break; /* Exit 1+ so | Ф / 


sprintf(work, "You pressed 7с", с); 
dt.talkCdt, work); 








if (с == ***) { /* Make '*' special */ 
dt.timeout(Cdt, 0); /* No timeouts now “/ 
dt_talk(dt, "Long message..."); 
} 
тт } 
I | /% 
"ow * Timeout is normal, others are errors. 
“/ 


return (Cc == Т) ? TRUE : FALSE); 
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DTANSW.C 
This routine hangs up the phone and answers on n rings. 
/* LIBRARY 
* / 
#ifdef DOCUMENTATION 
title dt_answer Answer the Telephone 
index Answer the telephone 
synopsis 
Finclude «stdio.h» 
#include "dectlk.h" 
int 
dt.answerCdt, nrings) 
DECTALK *dt; /* Device descriptor */ 
int nrings; /* Number of rings * / 
description 


#endi f 


#1пс 1 иде 


#1 пс] иде 


int 


Hang up the phone (Бу calling dt.hangupC)) and 
answer the phone after the specified number 
of rings. 


Return TRUE if successful, FALSE if in error. 


«stdio.h» 
"dectlk.h" 


dt.answer(dt, nrings) 


register 
int 
/* 
* Hang 
* / 
1 


again: 


DECTALK *dt; 
nrings; 


up the phone and answer on nrings. 


register int code; 
if C!dt-hangupCdt)) /* Make sure it's "y 
return CFALSE); /* on-hook. xil d 


dt-dcsCdt, Р2_РНОМЕ, P3_PH_ANSWER, nrings); 
while Cdt_read(dt, 0), dt_onhookCdt)) { 
if Cdt.abort) 
return CFALSE); 
} 
if Cdt.onhookCdt)) 
goto again; 
if Cidt_offhookCdt)) /* Did it answer ok? * / 
return CFALSE); 
/* 
* ОК, clear timeout flag and type-ahead counters. 
еу 
dt-»timeout = 0; 
dt->pend_fc = dt-»pend.fp = dt-»pend.ep = 0; 
return (TRUE); 





АТА 


дон 
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DTCLOS.C 
This routine closes the DECtalk channel and frees all buffers. 


pm / *)LIBRARY 


#ifdef DOCUMENTATION 











title аї_с1озѕе Terminate DECtalk Operation 
index | Terminate DECtalk Operation 
synopsis 

#include <stdio.h> 

#include "dectlk.h" 

dt-close(Cdt) 

DECTALK *dt; /* DECtalk device "y 


description 





Close the DECtalk channel and free all buffers. 
No error is returned. 


Fendif 
#include <stdio.h> 
#include "dectlk.h'" 





*ifdef rsx 





#include <cx.h> 

finclude «qiofun.h» 
finclude «qioret.h» 
finclude «qiottd.h» 


#define GQIO_EFN 1 


static GIOPARM  noparm; /* 010 parm Call zero) */ 
#endif 





dt _close(€dt) 
register DECTALK *dt; 
/* 
* Close the DECtalk channel. 
*/ 
1 





register DECTALK **linkp; 
Fifdef unix 
Kifdef BSD_42 
sttyCdt-»unit, &dt-»stty.save)2; /* Restore tty flags “/ 





Феізе 
#ifdef UNIX_V 
ioctlC(dt-»unit, TCSETA, &dt->»stty_save); /* Restore tty flags * / 





ФетдіҒ 
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#endif 


endif 
*ifdef 


#endi + 
#1 тде+ 


#endif 
*ifdef 


#епа: + 


closeCdt-»unit); 


vms 
sys$dassgn(dt-»unit); 


rt11 
rs-closeCdt-»unit); 


rsx 


qiowCIO-DET, dt-»unit, QIO_EFN, NULL, NULL, &noparm) 


fcloseCdt-»fildes); 


/* 
* Unlink the device from the chain. 
*/ 
for Clinkp = &dt.root; *linkp != NULL; 
linkp = &C€C*linkp)->link)) + 
if (*linkp == dt) { 
*linkp * dt-»link; 
break; 
) 
) 
freeCdt-»device); 
freeCCchar *)dt); 
return NULL); 


? 


| 


2227277 
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DTCMD.C 
This routine sends a DCS command to the DECtalk terminal. 





/ *)LIBRARY 
*/ 


#ifdef DOCUMENTATION 














title dt_cmd Send DCS w/o String Terminator 
index Send DCS w/o string terminator 
synopsis 

#include <stdio.h> 

#include "dectlk.h" 

int 

dt_cmd(dt, p2, p3) 

DECTALK *dt; /* Device descriptor 4 

int р2; /* P2_... parameter * / 

int p3; /* P3_... parameter "y 


description 


This routine sends a DCS command to the DECtalk 
terminal. The string terminator is not sent. 
This is needed to send phonemic text or telephone 
dial commands. 





The p2 or p3 parameter may be -1 if it is to be 
ommitted. 





А phonemic text sequence would be sent as follows. 





dt_cmdCdt, рг, p3); 
dt_talk(dt, "hh'ehlow."); 





dt_st(dt); 
Fendif 
Фітсінде <stdio.h> 
#include "dectlk.h'' 





static SEQUENCE command = { 
DCS, DCS_F_DECTALK, 0, 4 3, P1-DECTALK, 0, 0) 
Y; 





dt_cmd€dt, p2, рз) 

register DECTALK *dt; /* Device descriptor ЕА 
int р2; /* P2.command ог -1 */ 
int | РЗ: /* РЗ.соттата or -1 */ 
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/* — 


* Send a DCS command, no string terminator 
wf 
{ 
if (p2 == -1) [dle 
command.param[0] = 1; | | 
else 1 
command.param[2] = p2; 
if (РЗ == -1) | тт 
command.param[01 = 2; | | 
else 1 
command.param[01] = 3; 
command.param[3] = p3; 
} 
} 
dt.pescCdt, &command); 





ГЩЛ ОО 
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DTDCHA.C | 

This routine formats characters into a visible ASCII datascope format and 
writes the resulting text to the indicated file. Note that this routine is indepen- 
dent of DECtalk definitions. Output is via the C standard library. Dumps to 
terminals are unbuffered. 











/ *)LIBRARY 
*/ 


#ifdef DOCUMENTATION 








title dt-dchar Dump One Character Visibly 
index Dump one character visibly 
synopsis 

finclude <stdio.h> 





| | dt_dchar(c, iov) 


int | c; /* Character to dump “4 
FILE *iov; /* File to write to */ 
description 


The character is formatted into a visible ASCII 
Datascope format and the resulting text written 
to the indicated file. 





Note that this routine is independent of DECtalk 
definitions. 








Output is via the C standard library. If the dump 
is to a terminal, it is unbuffered. 


#endif 
#include <stdio.h> 


dt.dcharCc, iov) 








register int с; 
register FILE *iov; 
/* 
* Dump a character. 
*/ 
1 
char work[121; 





dt_visible(€c, work); 

fprintfCiov, "Xs", work); 

if CisattyCfilenoCiov))) 
|». fflushCiov)2; 
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DTDCS.C 


This routine sends a DECtalk DCS control sequence using the p2, p3, and p4 
parameters. Pn parameters are -1 if not sent. No errors are possible. 


/ *)LIBRARY 
*/ 


fifdef DOCUMENTATION 


title dt.dcs Send a DECtalk DCS Command 
index Send a DECtalk DCS command 
synopsis 

#1 пс | иде «stdio.h» 

Фітсінде "dectlk.h'' 


dt-dcsCdt, рг, p3, p4) 


DECTALK *dt; /* Device descriptor * / 

int р2; /* Р2 ххх parameter ЫГА 

int p3; /* P3_PH_xxxx parameter */ 

int р4: /* timeout or rings * / 
description 


This routine sends a DECtalk DCS control sequence 
using the p2, p3, and p4 parameters. 


Note that the Pn parameters are -1 if they 
are not sent. 


No errors are possible. 


Fendif 
#include <stdio.h> 
#include "dectlk.h" 


static SEQUENCE DT_string_terminator = { 


ST /* String terminator 
dt-dcsCdt, p2, рз, p4) 
register DECTALK *dt; /* Dectalk device 
int ре, РЗ, p4; /* Parameters to send 


*/ 


* / 
* / 


ГГ | 
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/* 

* Load the parameter buffer and send the sequence. 

* dt-»send.param[0] contains the number of additional parameters. 
*/ 

1 





dt-»send.state = DCS; 

dt-»send.final = DCS.F.DECTALK; 

dt-»send.private = 0; 

dt->send.inter([0] = 0; 

dt->send.param(0] = 1; 

if (p2 >= 0) í 
dt-»send.param[01**; 
dt->send.param(2] = p2; 








} 

if (РЗ >= 0) + 
dt-»send.param[01**; 
dt->send.param(3] = p3; 





} 

if Ср4 >= 0) + 
dt-»send.param[01**; 
dt-»send.param[4] = p4; 





} 
dt_pesc(dt, &dt-»send); 
dt_pesc(dt, &DT.string-terminator); 





| 
| 
| 
| 
| 
| 
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DTDIAL. 


PROGRAM EXAMPLE 


C 


This routine dials the DECtalk telephone, depending on whether the telephone 
used is Touch-Tone or pulse type. 


/ * LIBRARY 
*/ 
#ifdef DOCUMENTATION 
title dt_dial Dial the Telephone 
index Dial the telephone 
synopsis 
*include <stdio.h> 
#include "dectlk.h" 
int 
dt-dial(dt, p3, numb, wait, msg) 
DECTALK *dt; /* Device descriptor ae 
int p3; /* P3.PH-xxxx parameter */ 
char *numb; /* Number to dial *7 
int wait; /* See below ЖҮ 
сһағ *msg; /* Announcement Ж. 
description 


This routine dials the DECtalk telephone. The P3 
parameter must be either P3_PH_TONE Ctone dial) 
or P3.PH-PULSE (pulse dial). 


For tone dialing, the number text may contain any 
valid touch-tone characters ("0123456789**ABCD") 

or the characters ”!” (for a one second delay) 

or the *"* for а 250 millisecond switch-hook flash. 
А11 other characters are ignored. 


If pulse dialing is selected, only the digits, '!" and 
^^’ are interpreted. 


Note that the telephone will not be hung up before 
dialing if it is offhook when the command is issued. 


ГЦ | 
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Call Progress Detection 


DECtalk cannot tell if or when someone answers the 
phone. Тһе only way to do this is to speak a message, 
such as "This is DECtalk, please press any button 

on the keypad." and wait some limited time for the 
person to press the button. The wait and msg 
parameters provide this capability. 








If wait is less than or equal to zero, DECtalk returns 
without attempting to verify that someone has answered 
the phone. Тһе return will be TRUE if the phone is 

of fhook. 





If wait is greater than zero, it specifies the number 

of seconds to wait for a response, and msg is the 
message to speak. (If msg is NULL, the sample text 
shown above will be used.) Тһе message is repeated 
continuously until either the alloted time has 

elapsed or a button is received. dt.dial() then returns 
TRUE 1+ the phone is offhook, as above. 








To cause DECtalk to silently wait for a message, use 
a zero-length string ("")., Note, however, that an 

audible message is required by some public telephone | 
systems. | 





When DECtalk returns after call progress detection, 
keypad data entry and keypad timeout will be disabled. 





#endif | 
Finclude <stdio.h> | 
#1пс 1 иде "dectlk.h" | 


#define ANNOUNCEMENT "This is DECtalk, please press any key." | 


int 

dt-.dialCdt, p3, number, wait, message) 

register DECTALK *dt; /* Device descriptor А 
int | p3; /* P3.PH.PULSE or ТОМЕ %/ 
register char *number ; /* Number to dial "f 
int wait; /* Call progress delay */ 


char *message; /* Announcement * / 
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/* 
* Send a phone message. 


1 


register int code; 

int dialtime; 
long endtime; 
extern long time); 


if Cnumber == NULL) 
number = "", 
dt-cmdCdt, P2.PHONE, p3); 


dialtime = strlenCnumber); 


if Cp3 == P3_PH_PULSE) 
dialtime *= 2; 
while C*number {= EQS) 


dt.put(dt, *number++); 


dt_stCdt); 
do { 


/* 


/* 
/* 


/* 


Time to dial phone 


Paranoia, 
Ahh, paranoia 


Send the number 


code = dt.read(dt, dialtime + 30); 
) while (code == ST |} dt.save(dt, code)); 


if (wait <= 09 


return Cdt.offhookCdt2); 


/* 


* Call progress detection. 


* / 


if C!dt-offhookCdt) 11 !dt_keypad(dt, TRUE)) 


return CFALSE); 


endtime = time(NULL) + wait + 


if (message == NULL) 


message = ANNOUNCEMENT; 


do 4 
dt-talkCdt, message); 
dt-put(dt, VT); 


/* 
/* 


} while CCcode = dt.read(dt, 52) < 


&& timeCNULL) <= endtime); 
dt-dcsCdt, P2_STOP, -1, -1); 


if Cdt_isvalid(code)) + 
dt_keypad(dt, FALSE); 
dt.drainCdt); 
return (TRUE); 

) 


else if Cdt_phone(dt, -1, -1), 


dt .hangupCdt); 
return (FALSE); 


/* 
/* 
/* 
/* 
/* 


/* 


Speak announcement 
Make sure it's heard 
0 


Enough already 

User key? 

Turn off keypad and 
Drop pending text 
Normal return 


dt_offhookC€dt)) 


No response, hangup 


./ 


*/ 
* / 


у 


* / 
* / 


*/ 
* / 
* / 
* / 
*/ 


ЖҰ 


КОЛЛ 


|| 


оны, 


77 


fitting, 
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DTDRALC | 
This routine absorbs any type-ahead characters. No errors are possible. 








EF / *) LIBRARY 
*/ 


#ifdef DOCUMENTATION 








title dt.drain Drain Pending Input 
index Drain pending input 
synopsis 
#include <stdio.h> 
include "dectlk.h'" 
dt drainCdt) 
DECTALK *dt; /* Device descriptor ку 
description 





Absorb any type-ahead characters. 
No errors are possible. 








| note 
On UNIX systems, dt-drain(@) will also cancel pending 
output. This may cause DECtalk to receive word 
| fragments or partial escape sequences. 
| The code is conditionally compiled for two varieties 
of UNIX: Ultrix-32 Cor 4.2 bsd) and UNIX System V. 
Other varieties of UNIX and UNIX-like systems may 
need to edit this file. 
белді” 
#1 пс1иде «stdio.h» 
#1 пс] иде "dectlk.h" 


Fifdef unix 


dt drainCdt) 

register DECTALK *dt; 

/* 
* dt.drainC) tosses out any pending type-ahead. 
* / 

1 





dt->pend_fc = dt-»pend.fp = dt-»pend.ep = 0; 
Fifdef BSD_42 
ioctlCdt-»unit, TIOCFLUSH, NULL); 








Феізе 
#ifdef UNIX_V 
ioctlCdt-»unit, TCFLSH, 0); /* UNIX V7 * / 
#endif | 
Fendif 
dt-»in.ptr = dt-»in-end = dt-»in.buff; 
) 


#endif 
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#1 Чет  vms 

#1 пс 1иде «iodef.h» 

dt_drain (dt) 

register DECTALK *dt; 

/* 

* dt_drain€) tosses out any pending type-ahead. 

* / 

1 
dt->pend_fc = dt-»pend.fp = dt-»pend.ep = 0; 
/* 


* This is probably sub-optimal. It should be possible 


* to do "sys$qiowC... 
* IO$-READLBLK 1 IO$M.PURGE 1 IO$M_TIMED 


* with a zero-length timeout, but I sure don’t know. 


* / 
while Cdt.vmsreadCdt, 


IO$_READLBLK | IO$M_NOECHO ! IO$M_NOFILTR ! IO$M.TIMED, 


IN-BUFLEN, 0) >= IN_BUFLEN) 


3 
dt->in_ptr = dt-»in.end = dt-»in.buff; 
} 
#endif 


ifdef rtii 
finclude «rsts.h» 


dt.drainCdt) 


register DECTALK *dt; 

es ! 
* 41. дғаіп(2 tosses out any pending type-ahead. 
*/ 

{ 


dt-»pend.fc = dt-»pend.fp = dt-»pend.ep = 0; 
clrxrb€); 
xrb.xrlen = 7; /* Cancel type-ahead 
xrb.xrci = dt-»unit * 2; 
xrb.xrblkm = TTYHND; 
rstsysC. SPEC); 
dt->in-ptr = dt-»in.end = dt-»in.buff; 
} 
fendif 


fifdef rsx 

dt_drain(dt) 

register DECTALK *dt; 

/* 
* dt-drain(D) tosses out any pending type-ahead. 
27 


1 
dt-»pend.fc = dt-»pend.fp = dt-»pend.ep = 0; 
do { 
dt-»in.ptr = dt-»in.end = dt-»in.buff; 
} while C(dt.get(dt, 1) > 0); 
dt->in-ptr = dt->in_end = dt-»in.buff; 
} 
#endif 


т N ОРИСИ C m ОС ИНИ AAN то ИР Қ oe 
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DTDUMP.C 
This routine writes an escape sequence buffer to the standard output file. This 
mode is for debugging. 








/* LIBRARY 
же 





#ifdef DOCUMENTATION 








title dt dump Dump Escape Sequence Buffer 
index Dump escape sequence buffer 
synopsis 

finclude «stdio.h» 

Finclude "dectk.h" 

int 

dt-dumpCwhat, seq) 

char *what; /* Explanation Ж 

SEGUENCE *seq; /* Buffer to dump t4 
description 


The requested escape sequence buffer is written 
(visibly) to the standard output file. 


If what is not NULL, it is written as an identifier. 


Output is via the C standard library. 





For example, 


#include <stdio.h> 
#include "dectlk.h" 


DECTALK *dt; 
extern DECTALK *dt_open(); 
«е /* 
* Ореп a DECtalk device, 
* request phone status and 
* dump returned status sequence. 
ЫА 
dt = dt.-open(C"kb2:"); 
dt-phoneCdt, P2.PH-STATUS, -1); 
dt-dump("status", &dt->reply); 


#endif 


#include «<stdio.h> 
“include | "dectlk.h" 
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dt-dump(what, seq) 


char *what; 
register SEQUENCE *seq; 
{ 
register int 1% 
register char *wp; 
char work[811]; 
extern char *dt_visibled); 


if Cwhat != NULL) 
printfC"Zs: \"", what); 
wp = dt-visible(seq-»state, work); 
switch Cseq->state) 5 
case ESC: 
case CSI: 
case DCS: 
if Cseq->private != 0) 
wp = dt-visible(Cseq-»private, wp); 
for (1 = 1; i <= seq-»param[01; i++) { 
if Сі > 1) 
"wp: de бу”; 


if (зед->рагатГі t= 0) { 


sprintfCwp, "Xu", зед->рагат[ 11); 


wp += strlen €wp); 
} 
} 
for Ci = 1; i <= seq-»inter[0]; i++) 
wp = dt-visible(Cseq-»intertil, wp); 
break; 


default: 
break; 
} 
if (seq->final != 0) 
wp = dt-visible(Cseq-»final, wp); 
*wp = EOS; 
printfC"XsXs", work, (what == NULL) ? '" 


"NUN пм), 


энендин, 


он, 





Га 
н] ji 


iftis, 
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DTEOL.C 
This routine writes an end of line to DECtalk and calls the operating system 
executive service to write the local output buffer to the terminal. No value is 
returned. 


You need this routine on operating systems that enforce line wraparound on 
the terminal. DTEOL.C also improves the appearance of the debugging logs. 


/ *)LI BRARY 
*/ 


Kifdef DOCUMENTATION 


title dt.eol Write End of Line to DECtalk 
index Write End of Line to DECtalk 
synopsis 

#include <stdio.h> 

#1 пс 1 иде "dectlk.h'" 

dt_eolCdt) 

DECTALK *dt; /* Device descriptor "Jj 
description 


An "end of line" is written to DECtalk and the 
operating system executive service is called to 
cause the local output buffer to be written to 
the terminal. 


No value is returned. 
This routine is needed on operating systems that 


enforce "line wrap-around" on terminal devices. 
It also improves the appearance of debugging logs. 


fendi f 
/include | ТРИ 
#include "dectlk.h" 


#ifdef dt.eol 
#undef dt eol 
#endif 


dt-eol(dt) 
register DECTALK *dt; /* Device descriptor 4 
{ 


Fifndef unix 

dt.put(dt, ‘\r’); 
Fendif 
dt.putCdt, 'Nn*); 
dt.putC(dt, 0); 





j 
Ё 
р 
| 
| 
| 
| 
| 
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DTGESC.C 
This routine reads an escape sequence or keypad character. 


/ *)LIBRARY 
“/ 
*ifdef DOCUMENTATION 
title dt_gesc Read Escape Sequence or Character 
index Read escape sequence or character 
synopsis 
#include <stdio.h> 
#include "dectlk.h" 
int 
dt.gescCdt, sec) 
DECTALK *dt; /* Device descriptor */ 
char sec; /* 0.5. timeout value T 
description 


Read an escape sequence or keypad character. 


dt-gesc() interprets a stream of 7- or 8-bit characters 
including escape sequences adhering to the coded representations 
of ISO 646, ISO 2022, and 150 6429 with extensions to the DCS 
introducer as required by DEC Standard 138. 


The function dt.gesc() recognizes ESC, CSI, and DCS, 

and processes characters following each of these introducers 
until a complete sequence is encountered. Іп the case of DCS, 
control returns to the caller after the final character of 

the DEC Standard 138 introduction sequence, but before the 
first data character of the device control string. 


When sandwiched between the application and a get character 
function Cdt_get@)), dt-gesc() transforms the input 

stream from a character stream to a stream of tokens consisting 
of characters, escape sequences, control sequences, and DCS 
introduction sequences. When any of the recognized sequence 
types is encountered, the function value returned is that of 
ESC, CSI, or DCS, and the interpretted body of the sequence 

is returned in the seq structure. The caller may treat 
dt-gesc€) similarly to getchar(), ignoring the returned 
structure in all cases except when the returned function value 
is ESC, CSI, or DCS. 


2, | 


ину 





А 
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An additional function performed Бу dt-gesc() is that all 

C1 control functions received in their 7-bit form are returned 
to the caller in their 8-bit form, thus eliminating the need 
for the caller to process C1 control functions in their (7-bit) 
escape sequence form and enforcing the equivalence of the 7-bit 
and 8-bit forms of the C1 control functions. The function 

also enforces the sequence cancellation effect of the SUB and 
CAN control characters. 








The dt.gesc() function calls the user-supplied dt_get@ 
(read one character) function as many times as required to 
complete an escape sequence, control sequence, or Digital 
standard DCS introduction sequence. In the passed data 
structure, it returns the final character, intermediate 
characters, and parameter values. 


Since 7-bit operation is a compatible subset of 8-bit 
operation, there is -- normally -- no distinction in the 
dt.gesc() function between the two environments. 

The application program may set the -FLAG-EIGHTBIT bit 

in dt-»flag to receive C1 control characters in their 
eight-bit form. If .FLAG-EIGHTBIT is set on, the 
application program must also ensure that the host 

operating system communication line receives eight 

data bits, and that DECtalk setup has set HOST FORMAT EIGHT. 





Also, dt.get() may return two special values, 
DT.ERR and DT_TIMEOUT, to indicate operating-system errors 
and communication line timeouts respectively. 


Because С0 control characters may be embedded in sequences, 

and must be interpretted as if they occurred before the 
sequence in the stream, the dt.gesc() function 

retains internal state information in the sequence data 
structure from call to call. The seq.state value is zero 

on return to indicate a complete escape sequence. 1+ non-zero, 
it contains the sequence introducer. 








If the "seq.state" element is zero, dt.gesc() assumes 

that the remainder of the data structure is invalid and that 
there is no data being retained from a prior call. A non-zero 
value for the "seq.state" element indicates a particular 
internal state (ESC, CSI, ог DCS) that the parser should assume 
on the next call. 

Intermediate characters and parameter values interpretted up 

to the occurrence of the embedded control character are also 
stored in the returned data structure and also should not be 
altered by the caller. 


Escape sequence syntax errors are indicated by setting the 
seq.private parameter to 7Х” (which is not a possible 
private parameter). 
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endif 


#include 
“include 


int 
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If the dt.gesc() function encounters more than the 

allowed maximum number of intermediate characters, the 
returned data structure indicates that one more intermediate 
character was received than allowed. 0+ course, characters 
after {Һе maximum are not stored. 


If the dt.gesc() function encounters more than the 

allowed maximum number of parameters, the extra parameters 
are ignored and the returned data structure indicates that 
the allowed maximum number of parameters was received. 


After each call to dt.gesc() the dt-»seq SEQUENCE 
contains the following information. 


seq.state Zero to indicate complete sequence 
seq.final The sequence final character 
seq.private Private parameter character: 


EQS, <, =, >, ?, or X for errors 


зед.рағат(01 The number of parameter values 
C0: SEG-PARMAX) 


seq.param[n] (unsigned) The n'th parameter value 


seq.inter[0)] The number of intermediate characters 
C0: SEGL INTMAX« 1) 


seq.inter[n] (char) The n'th intermediate character. 


In general, the intermediate and final characters should be 
taken аз a whole to determine the action. It is easy to 
ignore sequences with too many intermediate characters since 
the returned number of intermediate characters will not match 
any action function. 


To simplify the code, this module doesn't test for overly 
large parameter values and assumes that all overflow errors 
are due to invalid escape sequences. 


<stdio.h> 
"dectlk.h" 


dt_gesc(dt, sec) 


register 
int 


DECTALK *dt; /* Dectalk device * / 
зес; /* Q.S. timeout * / 


вирь 
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£t | 
* Return a character or sequence 
*/ 
1 
register int с; 
Fifdef decus 
register unsigned | *р; 
Феізе | 
register unsigned short *p; 
fendif 


#ifdef DT.DEBUG 
if Cdt-debug) + 
dt_put(dt, 0); 
| printf("get: \""); 
if CisattyCfileno(stdout))) 


fflush(stdout); 
› 
#endif 
for €;;) í 
/* 
* Loop until end of sequence forces an exit. 
* Get the next character from the input stream. 
* Note: we assume that negative values are 
* "out of band" signals. 
* 


* Note that DT.TIMEOUT and DT_ERR must be negative values. 
“/ 
if (€c = dt_get(dt, sec?) > 0) 1 

if CCdt-»flag & -FLAG_EIGHTBIT) == 0) 





c &= 0х7Е; /* Enforce 7-bit input  */ 
) 
if (с == NUL 11 c == DEL) 
continue; /* Ignore NUL, DEL */ 
/* 


ij 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
D 
| 
| 
| 
| 
| 
| 
| 
| 
| 
j 


* Branch to ci_continue when changing «ESC» Г 
* to CSI, etc. 


*/ 
ci_continue: 
if (с == ESC /* ESC, CSI, DCS * / 
1 c == CSI /* [ntroduce control "7 
$$ с == DCS) ( /* sequences. ud d 
dt-»seq.state „е 
dt-»seq.inter[0] - 0; 
dt-»seq.private * 0; 
dt->seq.param[0] = 0; 
dt-»seq.param[ 1] - 0; 


continue; 
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else if Cdt->seq.state == 0) /* No pending sequence */ mm 
goto exit; /* Return the character */ 
else if (Сс >= 0x80 && с <= Ox9F) /* C1 control * / 

ii (с == CAN) /* or sequence %/ 

ii (с == SUBDD { /* resetter. */ mm 
dt-»seq.state - 0; | AM 
goto exit; 

} 
else if (с « 0x20) /* CO control or error  */ mm 
goto exit; pond 
else if (с <= 0x2F) + /* Intermediate af 
dt->seq.inter(0]++; 
if Cdt-»seq.intert0J < SEQ_INTMAX) ІТ 
dt-»seq.inter[dt-»seq.inter[01] = c; | | 
} ; 
else if (dt-»seq.state == ESC) { /* ESC final ЖҮ 
if €dt-»seq.intert0] == 0 8% (с & Ox3F) < 0x20) í ГЛ 
/* | | 
* This is the 7-bit form of a C1 control 
* character. Convert it to the actual 
* C1 control character and restart the Lr. 
* parse without getting another character. 
”./ 
с = Сс & 0хЗЕ) + 0x80; 
goto ci_continue; 
} 
else + 
break; /* Ordinary ESC ending */ 
} 
} 
else if (с <= Ox3F) + /* Parameter * / 
if (с >= 0x3C) { /* Private introducer?  */ 
if Cdt-»seq.paramt0] > 0) /* Is it first? */ [3 
dt-»seq.private = 'X'; /% error if not */ | | 
else { = 
dt->seq.private = c; /* Store it */ 
dt->seq.param[0]++; /* Flag seen */ [Т 
} КЕ 
" | |. 
else 5 /* Not private */ 
if (dt->seq.param[0] == 0) 1773 
dt-»seq.paramt01**; /* Record first */ 12112 


if Саї->ѕед.іпіег[0] !- 0) + 
dt->seq.inter[0] = 0; /* Syntax error */ 
dt->seq.private = 'X'; т 
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а-ы н /* 0..9 ы 
if (dt->seq.param(0] <= SEQ@_PARMAX) í 
/* 


* There is room. Store it. 


p points to current parameter. 

This should check for value 
overflow. 

/ 

p= &Cdt->seq.param(dt->seq.param[011); 
*p = С*р * 100 + Сс - 7093; 


ж ж жж ж 











} 
else í 
dt-»seq.private = 'X'; 
} 
} 
else if (с == *;') 1 /* Separator * / 
if C(dt-»seq.param[0J >= SEG.PARMAX) 
dt-»seq.param[0] = SEQ@_PARMAX + 1; 
else t 
/* 
* There's room to setup for 
* another parameter value. 
7 
dt-»seq.param[01**; 
dt-»seq.param[dt-»seq.param[01] = 0; 
} 
} 
else 4 /* colon is invalid № 
dt-»seq.private = 'X'; 
} 
} 
} 
else { /* CSI/DCS terminator gd | 
if (dt->seq.param(0] == 0) /* No parameters: "7 | 
dt->seq.param(0]++; /* want one zero-value 16 | 
break ; /* Exit parser *y | 
} 
} 
/* 


* Control transfers to here as result of either of the 
* two break statements. Character is the final char. 
* of ESC, CSI, or DCS. 
*/ 
if C(dt-»seq.param[0] > SEQ@_PARMAX) í 
dt-»seq.param[0] = SEG.PARMAX; /* Set count То max. x 


dt-»seq.private = 'X'; /* Flag an error ту 
} 
dt-»seq.final = с; /* Store final char. м 
#ifdef decus 
с = dt-»seq.state; /* Fetch return value жу 


#else 
с = (unsigned short) dt-»seq.state; 








gni, 
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#endif 

dt->seq.state = 0; /* No sequence pending */ 
exit: /* Here to return char  */ 
Ffifdef  DT.DEBUG 

if Cdt.-debug) 

printfc'r"\n"); 

Fendif 

return Сс); /* and return. * / 


ни 


} 





72 7 
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3E DTGET.C 
mE This routine reads a character from the DECtalk terminal line. 


/* LIBRARY 
“/ | 


#ifdef DOCUMENTATION 








title dt_get Read one Character from DECtalk 
index Read one character from DECtalk 
synopsis 
#include <stdio.h> | 
#include "dectlk.h" | 
int 
dt.get(dt, sec) 
DECTALK *dt; /* Device descriptor Tg 
int sec; /* 0.5. timeout param. %/ | 
description | 


One character is read from the DECtalk terminal line. 
The sec parameter enables operating-system timeout; 
it is zero if no timeout is needed. 


dt.get() returns the character or an error code. 





DT_ERROR An operating system error 
Cor <CTRL-C> interrupt) was received. | 
DT-TIMEOUT The sec parameter was nonzero and no 


character was received in sec seconds. 


1+ DT_DEBUG is #defined when the library is compiled 
and the global dt-debug is set nonzero (Бу the 
application program), the character 

received is logged to the standard output device. 


F*endif 
#1пс 1 иде «stdio.h» 
#1пс 1 иде "dectlk.h' 


#ifdef ді _деї 
fundef (414-дей 
#endif 
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int dt_debug; 


int 
dt_get(dt, sec) 
register DECTALK *dt; /* Device descriptor 
int sec; /* Operating system timeout 
{ 2 

register int с; 


extern int dt_debug; 


c = dt.ioget(dt, sec); 
if Cdt.debug != 0) 

dt-dchar(c, stdout); 
return Сс); 


БА НН eA ICE TE ENR ее SOUT ТАЛ ee MRR TNO To ERE Sot nr ee ЕТИН аа ла ee 
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DTHANG.C 
Hang up the telephone connected to DECtalk. 





Kd /*)LIBRARY 
*/ 


#ifdef DOCUMENTATION 





title dt hangup Hangup the telephone 
index Hangup the telephone 
synopsis 
#include <stdio.h> 
“include "“dectlk.h" 
dt_hangup(dt) 
DECTALK *dt; /* Device descriptor sy 
description | 


Hang up the telephone connected to DECtalk. | 
Return TRUE if successful, FALSE if an error. | 





fendif 
#1 пс] иде <stdio.h> 
#include “dectlk.h” 
int 
dt_hangup(dt) | 
register DECTALK *dt; | 
/* | 
* dt.hangup(O) hangs up the phone. 
*/ 
1 
register int code; 
dt_drain(dt); /* Drain pending text ый д 
if C!dt_phone(dt, P3_PH-STATUS, -122 /* Check state * / 
return (FALSE); /* Oops Tr 
if Cdt.offhookCdt)) + /* If it's not hung ир */ 
if C!dt.phoneCdt, P3.PH-HANGUP, -1)) 
return (FALSE); /* Couldn't hangup? ”/ 
while Cdt-offhookCdt)) í /* While still off-hook */ 
if Cdt-abort) /* Exit if interrupt */ 
return (FALSE); /* signal sets * / 
sleep(5); /* Wait and poll again */ 
if C!dt.phoneCdt, P3.PH-STATUS, -122 
return (FALSE); /* Poll failed? "7 
; d 
r 
if C!dt.onhookCdt)) /* Did it hang up ok? ”/ 


return CFALSE); 
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DTINIT.C 


This routine initializes the DECtalk terminal on the channel opened on dt. 


/ * LIBRARY 
f 


#ifdef DOCUMENTATION 


title dt.init DECtalk Initialization Routine 
index DECtalk initialization routine 
Synopsis 

#1пс |1 иде «stdio.h» 

#1пс 1 иде "dectlk.h'" 

int 

dt.initCdt) 

DECTALK * dt; /* Device descriptor * / 


description 


Initialize the DECtalk terminal on the channel opened 
on dt. 


Return TRUE if the device initialized successfully. 
Return FALSE on failure. 


note 
This routine turns off "local mode" so a logging terminal 
does not inadvertently send a response to the "who are you" 
escape sequence. 

endif 

include <stdio.h> 

*include "dectlk.h" 


static SEQUENCE DT-who.are.you = { 
CSI, “с” 
Y; 


int 
dt_initCdt) 
register DECTALK *dt; 


ftl 
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/* 

* dt.init() is called to initialize DECtalk. 

*/ | 

1 
register int code; 
dt-drain(Cdt); /* Ignore pending input */ 
dt.dcsCdt, P2_TERMINAL, 0, - 1); /* No local-»host stuff */ 
dt-»flag &= ~_FLAG_TERM; /* Remember this fact 4 
ге 


* Read device attributes and fail if it isn't DECtalk. 
* Expected reply із «ESC»[?19c for the DTC01-AA 
* / 
dt-pescCdt, &DT_who_are_you); 
if C(dt.read(dt, 15) == CSI 
&& dt-»reply.final == 'c' 
&& dt-»reply.private == '?' 
&& dt-»reply.inter[0] == 0 
&& dt-»reply.param[0] >" 1 
&& CCcode = dt-»reply.param[ 11) == CSI.DA.PRODUCTO)D { 
| dt-reset(dt); _/* Reset device %7 
return (TRUE); /* Hang up and restart  */ 
} 
return (FALSE); 
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DTINKE.C 
This routine reads a telephone keypad button. 


/* LIBRARY 
ША 


#ifdef DOCUMENTATION 


title dt_inkey Read a Telephone Keypad Character 
index Read a Telephone Keypad Character 
synopsis 

finclude <stdio.h> 

#include "dectlk.h" 

int 

dt_inkey(dt, sec) 

DECTALK *dt; /* Device descriptor */ 

int | sec; /* Seconds to wait "y 


description 


This routine reads a telephone keypad button. 
The application program has previously enabled 
the keypad (Бу calling dt-keypad(dt, TRUEDO. 
dt-inkeyC) will call dt.timeout() to enable 

or disable timeouts. 


If sec is nonzero, it will indicate the number of 
seconds to wait for a keypad response. If zero, 
it will turn off keypad timeouts. 

The operating-system timeout (needed to catch 
hardware or communication line problems) will be 
set to four times the timeout value, plus an 
operating-system specific additional timeout. 


аі -ітксеу() returns a character as follows. 


0123456789**ABCD A valid keypad button 
CNote that "ABCD" may be 
generated by certain 
keypad phones.) 


E Ап operating-system error 

T Keypad timeout 

X Badly parsed escape sequence. 
H Unexpected telephone hangup. 


The “Н” code is received if the DECtalk device hangs 
up the phone Cas may be required by specific telephone 
system requirements). 


gesto 


qum 
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fendi f 


#include <stdio.h> 
#1пс | иде "dectlk.h" 


Sa 


ж k k ж k*k ж & k ж ж ж 


7 


Fudge із needed because of terminal output buffering 
capacities and strategies. It should be tuned by 
inspection. 


The RSTS/E value is large because RSTS/E will resume a 
program when less than 80 bytes remain to be transmitted 
to DECtalk. DECtalk may have about 100 bytes in its input 
buffers and two phrases in the letter to sound and 
synthesizer sections. If the value is set too low, the 
application program may incorrectly assume that DECtalk 

or the communication line is broken. 


Fifdef ғ111 


#define FUDGE 60 /* RSTS/E needs extra time */ 
Феізе 
#define FUDGE 1S /* This is just a guess */ 
Fendif 
dt.inkey(dt, sec) 
register DECTALK "41: /* DECtalk device * / 
int sec; /* Keypad timeout "y 
1 

register int code; 

register int os timeout; 

dt_timeoutCdt, sec); /* Set/clear timeout */ 


if Cdt-iskeyCdt)) t 
code = dt-»pend[dt-»pend.ep]; 
if (€++dt->»pend_ep >= PEND_SIZE) 
dt-»pend.ep = 0; 
dt->pend_fc--3; 


} 
else f 
if ССсоде = dt.readCdt, 
(sec == 0) ? 0 : Csec * 4 + FUDGE))) <= 09 
code = Е“; 
else if Cdt_istimeout(dt)) + 
code = 'T*'; 
dt-»timeout = 0; 
} 
else if Cdt_onhookCdt)) 
code = 'H*'; 
else if Cdt->reply.private == 'X* 
ii '!dt.isvalidCcode)2) 
code = 'X'; 
} 


return (code); 
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DTIOGE. 


C 


This routine reads one character from the DECtalk terminal line. DTIOGE.C is 
maximized for efficiency. 


/ *)LIBRARY 
*7 
/* 
* Edit History 
* 84.04.10 MM HNGTTY incorrectly specified. 
* / | 
#ifdef DOCUMENTATION 
title dt_ioget Read one Character from DECtalk 
index Read one character from DECtalk 
synopsis 
#1 пс] иде «stdio.h» 
finclude "dectlk.h" 
int 
dt-ioget(dt, sec) 
DECTALK *dt; /* Device descriptor ud 
int зес; /* 0.5. timeout param. %/ 
description 


note 


One character is read from the DECtalk terminal line. 
The sec parameter enables operating-system timeout; 
it is zero if no timeout is needed. 


dt_ioget() returns the character or an error code. 


DT_ERROR An operating system error 
Cor <CTRL-C> interrupt) was received. 
DT_TIMEOUT The sec parameter was nonzero and 
no character was received in sec 
seconds. 


dt_ioget() is the operating-system specific input 
routine. It is the only routine to read data from 
the DECtalk terminal line. 


Оп vms, an internally-used routine, dt_vmsread(), 
is also defined. Application programs should 
not call this routine. 


This module contains specific code for Ultrix-32 (UNIX 
4.2BSD) and UNIX System V. Тһе makefile for the library 
should #define one of these as appropriate. 


222777 


отменив 
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Желді? 

finclude «stdio.h» 

*include "dectlk.h" 

/* 
* Define all DECtalk library globals in this module. 
”/ 

int dt.-abort; /* TRUE on interrupt 


DECTALK *dt.root; /* Chain of all open units 


Kifdef unix 


#1пс 1и4е «errno.h» 
#ifdef BSD_42 
finclude <sys/types.h> 
Finclude «time.h» 
Felse 
Fifdef | UNIX.V 
Finclude «signal.h» 
static ignore(C) {} /* Dummy function for signals 
FKendif 
#endif 
int 
dt_ioget(dt, sec) 
register DECTALK rat: /* DECtalk device 
int sec; /* Wait time, 0 == forever 
/* 
* UNIX: Fill the input buffer, return the next (first) character. 
* / 
1 
register int incount; /* Count and error code 
Fifdef В5р_42 
auto int fdmask; /* File descriptor mask 
struct timeval timeout; /* Select) timer value 
Felse 
Fifdef UNIX_V 
register int ecode; /* For error handling 
extern int errno; /* System error value 
Fendif 
*endif 
/* 
* Return buffered character Cif any) 
ж 


if Cdt->in_ptr < dt-»in.end) 
return C*dt-»in-.ptr** & OxFF); 
£^ 
* Ме must refill the buffer 
*/ 
dt-»in.ptr = dt->in-end = &dt-»in-buff[01]; 
dt-ioput(dt, 0); /* Flush output 
if C(dt.abort) 
return CDT_ERROR); 


“/ 
* / 


* / 


* / 
*/ 


* / 
*/ 
"y 


* / 
* / 


* / 
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*ifdef В5р_42 
fdmask = 1 «« dt-»unit; /* Select unit ту 
timeout.tv.usec = 0; /* No milliseconds kA 
timeout.tv.sec = sec; /* Max. seconds to wait */ 
incount = select(dt-»unit + 1, &fdmask, 0, 0, &timeout); 
if Cincount < 0 11 dt.abort) 
return CDT.ERROR) ; /* Select failed? * / 
else if Cincount == 0) /* Timeout triggered? * / 
return CDT.TIMEDUT) ; /* Guess so “/ 
else { 
incount = readCdt-»unit, dt-»in.buff, IN.BUFLEND); 
) 
felse 
Fifdef | UNIX.V | 
signalCSIGALRM, ignore); /* Enable alarms * / 
alarmCsec); /* Start timeout * / 
errno = 0; /* Clear error flag */ 
incount = read(dt-»unit, dt-»in.buff, IN.BUFLEN); 
ecode = errno; /* Save error code * / 
а1агтС0); /* Cancel timeout */ 
signalCSIGALRM, SIG_IGN); /* Disable alarms * / 
if Cincount < 0 && ecode == EINTR) /* Did it timeout? */ 
return CDT.TIMEDUT) ; | /* Return failure */ 
Fendif 
*endif 
if Cdt-abort {ff incount <= 0) /* Other error? жу 
return CDT_ERROR); /* Return bad failure * / 
dt-»in.end = &dt-»in.bufflincount]l; 
return C*dt-»in.ptr** & OxFF); 
} 
Fendif 
*ifdef vms 
finclude «ssdef.h» /* System status codes * / 
finclude <iodef.h> /* 1/0 request codes 57 
/% 
* Define the possible vms input flavors 
“/ 
#define RAW.READ CIOS$.READLBLK 1 IOS$M.NOECHO 1 IO$M_NOFILTR) 
Fdefine TIMED.READ CRAW_READ i IO$M_TIMED) 
typedef struct io -status_block 4 | 
short int status; /* 1/0 status code */ 
short int term_offset; /* Datum size ”/ 
short int terminator; /* Input terminator жу 
short int term.size; /* Terminator size * / 
} IOSTAB; 
int 
dt.ioget(dt, sec) 
register DECTALK “аш; /% DECtalk device */ 
int ес; /* Wait time, 0 == forever */ 
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/* 

* VMS: 
“/ 

1 


} 


int 
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Fill the input buffer, return the next Cfirst) character. 


register int incount; /* Count and error code */ 


/* 

* Return buffered character Cif any) 

*/ 

if Cdt-»in.ptr < dt-»in.-end) 

return C*dt-»in.ptr** & OxFF); 

/* 

* We must refill the buffer 

*/ 
dt-»in.ptr = dt-»in.end = &dt-»in.buff[01; 
dt-ioput(dt, 0); /* Flush output */ 
/* 


* First read anything in the system type-ahead 
* buffer by reading with a zero timeout. 
* 1+ nothing was read, read one byte Cwith 
* timeout if specified). Р 
*/ 
incount = dt.vmsreadCdt, TIMED.READ, IN.BUFLEN, 0); 
if Cincount == DT_TIMEOUT) ( 
incount = dt.vmsreadt(Cdt, | 
(sec > 0) ? TIMED.READ : RAW_READ, 1, sec); 
) 
if Cincount « 0) 
return Cincount); /* Return error code * / 
/* 
* Common exit from all read routines 
* / 
dt-»in.end = &dt-»in.bufflincount]l; 
return C*dt-»in-ptr** & OxFF); 


dt.vmsread(dt, command, how-many, timeout) 
register DECTALK *dt; /* DECtalk device * / 


int 
int 
int 


command; /* GIO command * / 
Һоҹ_тапу ; /* How many bytes to read d d 
timeout; /* timeout value ж 
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/* 


* Actually read from vms. Return 


* 
* 
* 


7 


} 
#endif 


#ifdef 
/* 


* 


* / 


Фітсінде 


int 


(result » 0) the number 
(result « 0) error code 
(result cannot equal zero). 


register int incount; 
105ТАВ status; 
register int i; 

/* 


of bytes read 
CEQF or TIMEOUT) 


/* Status parameter 
/* 1/0 status block 
/* For debugging 


* termset is a terminator mask indicating "terminate 
* on any character". As implemented on VMS, this 


* allows the operating sys 
* / 
static long termset[21] = { 


if (dt_abort) 
return CDT_ERROR); 
/* 


* The status entries term. 


* will yield the number of 

*/ 

incount = sys$qiow(1, /* 
dt-»unit, /% 
command, /* 
&status, /* 
NULL, /* 
0, /* 

dt-»in.buff, /* 
how-many, /* 
timeout, /* 
&termset, i? 
NULL, /* 
02; /* 

if Cincount == 55% TIMEOUT) 

return CDT_TIMEOUT); 


tem to handle ХОҒҒ/ХОН. 


0,0); 


offset and term.size 
bytes read. 


Event flag 

Input channel 

Timed read 

I/0 status block 

AST block €none) 

AST parameter 

P1 - input buffer 

P2 - buffer length 

P3 - wait P3 seconds 

P4 - terminator set 

PS - ignored (prompt buffer) 

PG - ignored (prompt size) 
/* Timeout returned 


else if Cincount != SS$_NORMAL) /* Some other error 


return CDT.ERRORD) ; 


incount = status.term_offset + status.term.size; 


if Cincount <= 0) 
return CDT_TIMEOUT); 
return Cincount); 


rt11 


/* Nothing input? 
/* equals timeout. 


RS TS+Y#E 


«rsts.h» 


dt-ioget(dt, sec) 
register DECTALK *dt; ж 


int 


sec: /* 


DECtalk device 
Wait time, 0 == forever 


*/ 
yii 
tf 


*/ 
* / 
“/ 
57 
*/ 
*/ 
*/ 
* / 
*/ 
“/ 
* / 
ту 
Ty 


* / 


* / 
* / 
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um /* 
+ RSTS/E: Fill the input buffer, return the next (first) character. 
*/ 
1 
== register int incount; /* Count and error code */ 
/* 
* Return buffered character Cif any) 
ғ 





if Cdt-»in.ptr < dt-»in-end) 
return C*dt-»in.ptr** & OxFF); 


/* 
pm * Ме must refill the buffer 
2 “/ 
dt-»in.ptr = dt->in-end = &dt-»in.bufft01; 
dt-ioput(dt, 0); /* Flush output * d 





if Cdt.abort) 
return CDT_ERROR); 


/* 
* RSTS/E handles timeout within 
pu * the operating system. 
| “/ 
clrxrbC); 
xrb.xrlen * 4; /* No delimiter “/ 





=з xrb.xrci = dt-»unit * 2; 
| | xrb.xrblkm = TTYHND; 


rstsysC-SPECO; | 
clrxrbC); | 
pem xrb.xrlen = 3; /* No echo */ | 
L xrb.xrci = dt-»unit * 2; | 
| xrb.xrblkm = TTYHND; | 
rstsysC_SPEC); | 








incount = rs.read(dt-»unit, dt-»in.buff, | 
IN-BUFLEN, 0, 0, sec, 0); | 


if Cincount == (-НМОТТҮ99 /* 84.04.10 * / 
return CDT_TIMEOUT); 
ренти else if Cincount <= 0) 
| return CDT_ERROR); 
/* 
* Common exit from all read routines 


| | dt-»in.end = &dt-»in.bufflincount]; 
return C*dt-»in.ptr** & OxFF); 
} 
аш FKendif 


*ifdef rsx 
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/* 
* Load 


* 


* ж ж ж ж 


/ 


#include 
#include 
*include 
#1пс | иде 
finclude 


fdefine 
*define 
static c 
static Q 
Static i 


int 
dt_ioget 
register 
int 
/* 
* RSX: 
“/ 


PROGRAM EXAMPLE 


in RSX specific information: 
cx.h common header 


qiofun.h 1/0 service function codes 
qioret.h 1/0 service error and status codes 
qiottd.h Terminal 1/0 service bits and bytes 
lunbuf.h Device characteristics buffer 
€«cx.h» 
«qiofun.h» 
«qioret.h» 
«qiottd.h» 
€«lunbuf.h» 
QIO_EFN 1 /* 1/0 event flag * / 
МКТ.ЕҒМ 2 /* Time event flag ығы 
har gmcbuft2] = { TC_TBF }; /* get typeahead count  */ 
IOPARM gmcparm = 4 gmcbuf, sizeof gmcbuf }; 
nt termtable[161; /* Terminator bitmask ./ 
(dt, sec) 
DECTALK “а /* DECtalk device * / 
sec; /* Wait time, 0 == forever */ 


Fill the input buffer, return the next Cfirst) character. 


register int incount; /* Count and error code */ 
register char *1р; /* То copy to rsx buff %/ 
int errorcode; 

int efn-buffer[4]; /% Event flag buffer ЖУ, 
/% 

* Return buffered character Cif any) 

*/ 


if Cdt-»in.ptr < dt->in_end) 
return C*dt-»in.ptr** & OxFF); 


/* 
* We must refill the buffer 
* / 
dt->in_ptr = dt-»in.end = &dt-»in.buff[01]; 
dt-ioput(dt, 0); /* Flush output * / 


if Cdt.-abort) 
return CDT_ERROR); 
if Cdt->pos_xk) 5 


2227 


КУ ОЛ cam. 
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шшш лану; 


чин, 
1 


ТЯ 


m C PROGRAM EXAMPLE 137 





wm /* 
| * Тһе PRO-350 ХК: port is actually pretty simple. 
* / 
dt-»parm.buffer = dt-»in-.buff; 
m dt-»parm.size = IN.BUFLEN; 
| dt-»parm.p3 = 0; /* No timeout *7 


errorcode = qiowCIO.RLB 1 TF-TMO, dt-»unit, GIO.EFN, 
&dt-»iosb, NULL, &dt-»parm); 
n if CCincount = fixiosb(€dt)) == 0) { 
| dt-»parm.size = 1; 
if (Cdt-»parm.p3 = (256 * sec)) == 0) 5 
errorcode = qiowCIO.RLB, dt-»unit, QIO_EFN, 


p &dt-»iosb, NULL, &dt->parm); 
| } 
else ( 
errorcode = qiowCIO.RLB i TF-TMO, dt-»unit, 
pum 010-ЕҒМ, &dt-»iosb, NULL, &dt->parm); 
[D : } 


if Cerrorcode != IS.SUC) Ü 
return CCerrorcode == IS.TMOD 
9 DT_TIMEOUT : DT_ERROR); 





) 
if CCincount = fixiosbCdt)) == 0) f 
return CDT_TIMEOUT); 


else { | 
MEM * Read from a terminal. | 
* First, check whether anything is in the | 
* system type-ahead buffer. 
* / 
errorcode = qiowCSF.GMC, dt-»unit, QIO_EFN, 
&dt-»iosb, NULL, &gmcparm); 
if Cerrorcode != IS SUC) 
gmcbuf[1] = 0; 
dt->parm.buffer = dt-»in.buff; 








dt->parm.size = 13 /* Assume 1 byte read ЖҮ 
if (Cincount = Cgmcbuf[1] & OxFF22 > 0) í 
рт if Cincount > 1М_ВУЕРЕЕМ» 


incount = IN.BUFLEN; 
dt-»parm.size = incount; 
errorcode = qiowCIO.RTT 1 TF-RNE, dt-»unit, QIO_EFN, 
p &dt-»iosb, NULL, é&dt->parm); 
| incount = fixiosb(dt); 
} 
if Cincount == 0) ( 
на if Сзес == 0) { 
dt-»parm.table = termtable; 
qiowCIO-RTT | TF.RNE, dt-»unit, QIO_EFN, 
&dt-»iosb, NULL, &dt-»parm); 
тшт if CCincount = fixiosb(€dt)) == 0) 
| return CDT_ERROR); 
) 
else +{ 
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/* 

* VAX compatibility doesn't support read with 

* timeout (пог does it cause an error). Thus, 

* we have to do this the hard way. 

* 

* Set a mark time Calarm) for "timeout" seconds. 
* Read one byte without waiting. If the wait 

* completes, cancel the timeout. If the timeout 
* completes, cancel the readin. 

“/ 


if CmrktC(MKT.EFN, sec, 2, NULL) !- IS_SUC 
ii qioCIO-.RTT | TF_RNE, dt-»unit, QIO_EFN, 
&dt-»iosb, NULL, &dt->parm) {= IS_SUC) 
return CDT.ERROR); /* Сап”і happen */ 
/* 
* Wait until something completes, 
* read event flags then cancel the 
* request that didn't complete. 
*/ 
wtloOCGIO.EFN | MKT_EFN); 
rdafCefn_buffer); 
if CCefn.buffert0] & MKT_EFN) == 0) 
cmktCMKT.EFN, NULL); /* Cancel timer */ 
if CCefn.buffert0] & QIO_EFN) == 0) { 
qiowCIO-KIL, dt-»unit, QIO_EFN, 
&dt-»iosb, NULL, &dt->parm); 
return CDT_TIMEOQUT); 
) 
if CCincount = fixiosbC€dt)) == 0) 
return CDT_ERROR); 


) 
) 
ur. 
/* 
* Common (success) exit from all read routines 
“/ 


dt->in-end = &dt-»in.bufflincount]; 
return C*dt->in_ptr++ & OxFF); 
} 
static int 
fixiosbCdt) 
register DECTALK *dt; /* DECtalk device T 
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* This routine returns the correct input count. 
* The code is unusual. 


* 
pum + fixiosb() returns the true byte count. 
E | * / 
1 | 
extern int $$ferr; 
| if (dt->iosb.terminator != NUL) + 
/* 
* Append the terminator to the buffer. 
| dt-»in.buffidt-»iosb.count] = dt-»iosb.terminator; 
dt-»iosb.count**; 
) 
mem if Cdt.abort 
| 1! dt-»iosb.status == IE.ABO 
{1 dt-»iosb.count == 0) { 
return (0); /* Read aborted */ 
| else if C(dt-»iosb.status !* IS.SUC 
&& dt-»iosb.status != IS_TMO) + 
$$ferr = dt-»iosb.status; 
рнң return (09; /* 1/0 error * / 
| | ) 
return Cdt-»iosb.count); 
} 
(гене #endif 
| | 
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DTIOPU.C 

If the argument character is zero, or output buffer is full, this routine writes 
output buffer contents to the DECtalk device. Otherwise, DTIOPU.C stores the 
character in a local buffer. 


/ * LIBRARY 
* / 


#ifdef DOCUMENTATION 


title dt_ioput Write one Character to DECtalk 
index Write one character to DECtalk 
synopsis 

#include «<stdio.h> 

#1пс 1 иде "dectlk.h'" 

int 

dt-.ioput(dt, byte) 

DECTALK “41; /% Device descriptor + / 

char byte; /* Character to write */ 


description 


If the argument character is zero, or the output 
buffer is full, the output buffer contents are 
written to the DECtalk device. 


If the argument character is nonzero, it is stored 
in the output buffer for subsequent transmission. 


By buffering characters internally, the load on the 
operating system is significantly reduced. Note that 
the input routine (Cdt_get€), dt_ioget()) will flush 
the output buffer before attempting to read any data. 
The "speak" routine, dt_talk€), also flushes the 
output buffer. 


No data is returned. Errors are fatal. 
dt-ioput() is the operating-system specific output 


routine. It is the only routine to write data to 
the DECtalk terminal line. 
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#endif 


#include 
#include 
#ifdef 

#include 
#include 


typedef struct io-status_block { 


shor 
shor 
shor 
shor 
} IOSTAB 


#endi f 
Fifdef 


/* 
* Load 


ж ж ж ж 


* / 


#include 
#include 
#include 
#include 


#define 
#endif 


dt-ioput 
register 
int 

/* 
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"dectlk.h" 


vms 


«ssdef.h» 
«iodef.h» 


/* 1/0 status code 


t int status; 

t int term_offset; /* Datum size 

t int terminator; /* Input terminator 
t int term.size; /* Terminator size 
rsx 

in RSX specific information: 


cx.h 

qiofun.h 
qioret.h 
qiottd.h 


«cx. h» 

«qiofun. 
«qioret. 
«qiottd. 


GIO-EFN 1 


(dt, c) 
DECTALK 


common header 

1/0 service function codes 

1/0 service error and status codes 
Terminal 1/0 service bits and bytes 


h» 
h» 
h» 
/* 1/0 event flag 
*dt; /* DECtalk device 
с; /* Character to output 


* Store the byte Cif not EOS). If the byte is EOS, 
or the buffer is full, write it out. 


* 

“/ 
1 
#ifdef 


#endif 
Fifdef 


#endif 
#ifdef 


#endif 


Fifdef 


Felse 


register int 
vms 

register int 
105ТАВ 


rt11 
register int 
extern int 


rsx 
register int 
extern int 


if (с != 0) + 
rt11 


size; 
code; 


status; 


code; 
$$ferr; 


code; 
$$ferr; 


*dt->»out_ptr++ = (с == ESC) ? CESC i 0x80) : c; 


*dt-»out.pir** = ci 


vy 
* / 
* d 
* / 


* / 


* / 
*/ 
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#endif 


#ifdef 


#endif 
Kifdef 


*endif 
Fifdef 


Fendif 
Fifdef 


fendif 


} 
Size = (dt-»out.ptr - dt->out_buff); 
if (Cc == 0 && size > 0) 11 size >= OQUT_BUFLEN) { 
/* 
* Ше must write the buffer. 
* / 
if C'dt.abort) { 
unix 
if C(writeCdt-»unit, 
dt->out_buff, size) == -1) 5 
perror(Cdt-»device); 
exitC1); 
) 
vms 
if CCcode = sys$qiowC1, /* Event flag */ 
dt-»unit, /* Input channel ui 
IO$_WRITELBLK ! IO$M_NOFORMAT, /* format * / 
&status, /* 1/0 status block */ 
NULL, /* No AST block * / 
0, /* No AST parameter */ 
dt-»out.buff, /* P1 - buffer жу 
size, /* P2 - bytes 74 
0, /* P3 - ignored * / 
0, /* P4 - no carriage ctl */ 
0, /* P5 - ignored * / 
02) /* P6 - ignored Жү 
!= 55% NORMAL) { 
perrortCdt-»device); 
exitCcode); 
) 
rt11 
if CCcode = rs-writeCdt-»unit, dt-»out buff, 
size, 0, 0, 002 != 0) { 
$$ferr = code; 
perror(Cdt-»device); 
exitCIO_ERROR); 
} 
rsx 
dt->parm.size = size; 
dt-»parm.buffer = dt->out_buff; 
dt->parm.table = NULL; | 
if ССсоде = qiowCIO_WAL, dt-»unit, GIO.EFN, 
&dt-»iosb, NULL, &dt->parm)) != IS.SUC) { 
$$ferr = code; 
perrorCdt-»device); 
exitCIO_ERROR); 
} 
} 
dt-»out.ptr = dt-»out buff; 
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p DTISKE.C 
3 This routine returns TRUE if the telephone user already typed any characters. 
| / *)LIBRARY 
*/ 
pem #ifdef DOCUMENTATION 
title dt_iskey Test for type-ahead 
index Test for type-ahead 
| synopsis 
finclude <stdio.h> 
pem #1 пс1иде "dectlk.h" 
int 
dt-iskeyCdt) 
== DECTALK *dt; /* Device descriptor ы 
description 
pm This routine (which may be implemented аз a macro) 
| returns TRUE if any characters have already been 
typed by the telephone user, or if an asynchronous 
status message (such as timeout) was received. 
pum 
| | fendif 
finclude «stdio.h» 


pm #include "dectlk.h'" 


Fifdef dt.iskey 
undef  dt.iskey 





fendif 
int 
dt-iskeyCdt) 
ри register DECTALK *dt; /* Device descriptor "7 
i / * 
* Test for type-ahead. 
*/ 
| return(dt-»pend.fc != 0); 
} 
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DTISTI.C 
Used to test the result of a dt phone () message for keypad timeout. 


/*)LIBRARY 
* / 


#: тает DOCUMENTATION 


title dt_istimeout Test Phone Reply for Keypad Timeout 
index Test phone reply for keypad timeout 
Synopsis 

finclude «stdio.h» 

#1 пс] иде "dectlk.h' 

int 

dt.istimeout(Cdt) 

DECTALK *dt; /* Device descriptor ж 
description 


This routine (which may be implemented as a macro) 

tests the result of а dt.phone() message. 

It returns TRUE if the current reply is the DECtalk 

phone reply with the R3 parameter equal to R3.PH.TIMEOUT. 


*endif 
Фітсінде «stdio.h» 
#1пс | иде "dectlk.h' 


Fifdef dt _istimeout 
“undef dt _istimeout 
#endif 


int 
dt.istimeout(dt) 
register DECTALK *dt; /* Device descriptor * / 
/* 

* Test for telephone keypad timeout. 

*/ 
{ 

return Cdt-test(dt, R2.PHONE, R3_PH_TIMEOUT)); 

} 


"772727277 
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DTISVA.C 
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This routine returns TRUE if the argument character is one of 


01234567897 * ABCD. 


/ *)LIBRARY 
“/ 


#ifdef DOCUMENTATION 


title dt.isvalid 
index | 


synopsis 


#include 
#include 


int 
dt.isvalidCc) 


description 


Test for Valid Keypad Character 
Test for valid keypad character 


«stdio.h» 
"dectlk.h*'" 


This routine Cwhich may be implemented as a macro) 
returns TRUE if the argument character is one of 


0123456789#* ABCD 
fendif 
#include «<stdio.h> 
#include "dectlk.h" 


Fifdef dt.isvalid 
Fundef dt.isvalid 
Желді” 


707 аа c <= “970 


int 
dt.isvalidCc) 
char с; 
/* 
* Test for valid pushbutton key. 
1 

return € (с >= 

ii c == 


bi (с >= 


^*^ 1 С ша 70” 


“AS && c <= р’ ә); 
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DTKEYP.C ш 
This routine enables the telephone keypad if the flag is TRUE, and disables the | 
keypad if it is FALSE. 


/* LIBRARY 


он, 
"1 / | 
* | 


*ifdef DOCUMENTATION 


title dt_keypad Enable or Disable the Telephone Keypad 7 
index Enable or Disable the Telephone Keypad | 
synopsis 
finclude «stdio.h» | 
#include "dectlk.h" 
int == 
dt-keypad(dt, flag) | 
DECTALK *dt; /* Device descriptor ”/ 
int flag; /* TRUE to enable */ 
description | 
Enable the telephone keypad if the flag is TRUE, 
disable it if FALSE. ГТЗ 
| 
Returns TRUE if successful. If FALSE, the telephone | 
may have been hung up. 
fendif 
include <stdio.h> 
#1 пс] иде "dectlk.h" үс 
int 
dt.keypadCdt, enable) 
register DECTALK *dt; үт 
int enable; | 
/% 
* Enable or disable the telephone keypad. 
ж / каш 
{ | 


dt_phoneCdt, 
Cenabled ? P3.PH.KEYPAD : P3.PH.NOKEYPAD, -1); 
if Cdt_offhookCdt)) езе 
return (TRUE); | 
return (FALSE); 


ІІ 7 
проно, 


URSINI 
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DTMSG.C 
This routine sends a DECtalk DCS control sequence using the p2, p3, and p4 
parameters. The r2 and r3 parameters are not checked by the module. A 


pr FALSE reply means an error occurred. 
рена The user may have pressed keypad buttons or a timeout may have occurred. 
| These values аге saved for use by the dt save routine. 
| / *)LIBRARY 
* / 


#ifdef DOCUMENTATION 





title dt_msg Send a DECtalk Command with Reply 
index Send a DECtalk command with reply 
ет 
| | synopsis 
finclude <stdio.h> 
# " " 
“nm include dectlk.h 
| int | 
dt.msg(dt, p2, p3, p4, r2, r3) | 
pm DECTALK *dt; /* Device descriptor */ | 
Ej int 2; /* P2_xxxx parameter */ | 
| Р Р | 
! | int p3; /* P3_PH_xxxx parameter */ | 
int р4; /* timeout or rings a | 
int r2; /* R2.xxxx parameter * / 
j E int r3; /* R3_xxxx parameter * / | 
description 
d | This routine sends а DECtalk DCS control sequence 
using the p2, РЗ, and p4 parameters. It then reads 
a DCS reply from DECtalk, returning TRUE if it matches 
€ the r2 and r3 calling parameters. 
| | If p2 is -1, no sequence is sent; but a DCS reply 
is read and tested. 
MS Note that the Pn and Rn parameters are -1 if they 
are not sent or checked respectively. 
Returns TRUE if successful. If FALSE, something is funny. 
| Note: dt_msg() saves user keypad characters in the type-ahead 
buffer. 
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fendif 

Finclude «stdio.h» 

finclude "dectlk.h" 

int 

dt_msg(dt, pe, p3, p4, r2, r3) 

register DECTALK *dt; /* Device descriptor 

int р2, РЗ, p4; /* Pn parameters to send 

int r2, r3; /* Reply К2 and ЁЗ parameters 
/% 


* Send а DECtalk DCS message and wait for а reply. 
* Return TRUE if the proper reply was received. 
”/ 


register int code; 
if Ср2 != -1) 
dt-dcsCdt, p2, p3, p4); /* Send the sequence 
do í 
code = dt.readCdt, 60); 
} while (code == ST 11 dt.save(dt, code)); 
return Cdt.testCdt, r2, r3)); /* Check result 
} 





ж 
* / 
*/ 


"7 


*/ 


727272772373 


5277777 


72777772 


22720: 


a ER, 
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IE iiti 


aprono 
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DTOFFH.C 
This routine tests the result of a dt phone () message for OFFHOOK. 


/* LIBRARY 
“/ 


#ifdef DOCUMENTATION 


title dt_of fhook Test Phone Reply for Of fhook 
index Test phone reply for Of fhook 
synopsis 

finclude «stdio.h» 

#include "dectlk.h' 

int 

dt_offhook(dt) 

DECTALK *dt; /* Device descriptor ТУ 
description 


This routine (which may be implemented as a macro) 
is used to test the result of а dt-phone() message. 
It returns TRUE if the current reply is the DECtalk 
phone reply with the R3 parameter equal to R3_PH_OFFHOOK. 


#endi + 
include <stdio.h> 
#include "dectlk.h" 


Kifdef dt.offhook 
*undef | dt.offhook 
#еп 1 + 


int 
dt_offhook(dt) 

register DECTALK *dt; /* Device descriptor ”./ 
/% 

* Test whether the phone із off-hook. 

* / 

1 

return Cdt.testCdt, R2.PHONE, R3_-PH_OFFHOOK)); 
} 
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DTONHO.C баста 
This routine tests the result of a dt phone () message for ONHOOK. 


2777 


/ *)LIBRARY 
*/ 


#ifdef DOCUMENTATION — 


title dt.onhook Test Phone Reply for Onhook 
index Test phone reply for onhook 


177777272: 


synopsis 


#include «<stdio.h> 

#include "dectlk.h" — 
int 

dt .onhookCdt) 

DECTALK “ат: /% Device descriptor * / — 


description 


This routine (which may be implemented as a macro) IUE 
із used to test the result of а dt_phone() message. 

It returns TRUE if the current reply is the DECtalk 

phone reply with the R3 parameter equal to R3.PH.ONHODOK. 


[oe 
fendif | 
Жітсінде «stdio.h» 

#include "dectlk.h" == 
#ifdef dt _onhook | 
#undef dt.onhook A 
fendif | 
int | 
dt_onhook(Cdt) 
register DECTALK *dt; /* Device descriptor 24 He 
/* 

* Test whether the phone is on-hook. 

* / 

{ T 1 

return Cdt.testCdt, R2.PHONE, R3_PH_ONHOOK)); 

) 


fpina, 


Т р ООС 
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DTOPEN.C 


This rou 


tine performs operating-specific initializations to initiate communica- 


tions with a DECtalk device. Operating systems include UNIX, RSX, RSTS/E, 
and VMS (either compatibility or native modes). 


/ *)LIBRARY 
*/ 
#ifdef DOCUMENTATION 
title dt_open Connect to DECtalk Terminal 
index Connect to DECtalk terminal 
synopsis 

#include «<stdio.h> 

#include "dectlk.h" 

DECTALK * 

dt_open(dev) 

char *dev; /* Terminal device name */ 
description 


Perform operating-specific initializations to 
initiate communication with a DECtalk device. 
(This routine is similar to fopen() for FILE 
devices.) If the open fails, return NULL; 
else return a pointer to a data descriptor 
block that will be used for all other DECtalk 
operations. 


If the open failed, the standard library perror() 
routine may be called to print error information. 


This routine does not communicate with DECtalk. 


For example, the following sequence opens DECtalk, 
checks that it is responding, sets '"square-bracket" 
mode, and speaks a message: 


#include <stdio.h> 
#include "dectlk.h" 


DECTALK *dt; 


maintC) { 

if (Cdt = dt_openC"kb2:")) == NULL) í 
perrorC"kb2:"); 
printfC"Can't open DECtalk\n"); 

} 

else if Cidt_initCdt)) 
printf("Can't initiate DECtalk\n"); 

else + 
dt.dcsCdt, P2.MODE, MODE.SQUARE, -19; 
dt.talkCdt, "Hello world."); 
dt_sync(dt); 
dt_close(dt); 
printfC"Success.\n"); 
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UNIX notes 


This routine conditionally compiles for Ultrix-32 (4.2BSD) 


and System V. There is also a conditional for the Zilog 
Zeus version of UNIX. This hasn't been independently checked. 


UNIX implementors are encouraged to read and understand 


this module when developing DECtalk applications. 


UNIX and System V are trademarks of AT&T Bell Laboratories. 


fendif 
#1пс] иде <stdio.h> 
*include “dectlk.h" 


*ifdef unix 


/* 
* UNIX specific definitions 
*/ 
#1пс иде «signal.h» 
#include «errno.h» 
#еп 1: + 


#ifdef  vms 


/* 

* VMS native specific definitions 

“/ 
#include «ssdef.h» /* Status definitions 
#include <iodef.h»> /* 1/0 request codes 
#include «descrip.h» /* String descriptors 


typedef struct dsc$descriptor.s STRING; /* string descriptor 


/% 


* The following macro builds а descriptor from ап argument string. 


7 
define descrip(text, p) 
(Cp)-»dsc$a-pointer = text, 
Cp)->dsc$w_length = strlenCtext), 
Cp)->»dsc$b_dtype = DSC$K_DTYPE_T, 
(p?-»dsc$b.class = DSC$K.CLASS.S) 


#endif 


#ifdef ғ111 


/* 
* RSTS/E native specific definitions 
*/ 

#include «rsts.h» 

endif 


*ifdef rsx 


Finclude «cx. h> 

#include «qiofun.h» 

include «qioret.h» 

include «qiottd.h» 

#include «lunbuf.h» 

define QIO_EFN 1 

static GIOPARM  noparm; /% GIO 
*endif 


Канандан ы нын енін aN a Ee р ee A ge ey, yin к ыст 


Pdl ий 


parm Call zero) 


*/ 


* / 
* / 


*/ 


*/ 


КОСУ 


рн 


УУС 


рекою. 
| 
| 


портить, 
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DECTALK * 
dt-openCname) 
char *name ; /* Device name */ 
/* 
* Initialize the DECtalk terminal line. 
* / 
1 
register DECTALK *dt; 
register int i: /* Channel search, temp */ 
#ifdef unix . 
register char *ttname; /* -» stdin name ж. 
#ifdef В5р_42 
struct sgttyb stty-buffer; /* Terminal flags "y 
#else 
#ifdef UNIX_V 
struct termio stty-buffer; /* Terminal flags ЖҰ 
#endif 
endif 
extern char *ttynameC); /* Get stdin name ЖУ 
*endif 
Fifdef vms 
STRING dev; 
endif 
Fifdef rt11 
char work[301; 
extern int $$rsts; 
extern char *E$$NOD; /* Invalid device ж? 
extern char *ESSFAT; /* Fatal error “/ 
extern char *E$$NOC; /* No more channels * / 
fendif 
Fifdef rsx 
extern int $$rst5; /* TRUE if RSTS/E * / 
extern int $$pos; /* TRUE if P/OS */ 
extern int $dsw; /* Dir. status word */ 
extern int $$ferr; /* DECUS C error value %/ 
struct lunbuf lunbuf; /* Get lun information  */ 
Fendif 
extern char *callocd); 
extern char *malloc(); 
/* 
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* Allocate the DECtalk buffer and save the 
* device name (for debugging). 
Ж if CCdt = CDECTALK *OcallocCsizeof CDECTALK), 120) == NULLO 
return (NULL); 
if CCdt-»device = malloc(strlen€name) + 1)) == NULL) 
goto error?2; 
strcpy(dt-»device, name); 
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Fifdef 


Fifdef 


#е]5е 
*ifdef 


Fifdef 


Felse 


#endif 


#endif 
*endif 
endif 
Fifdef 


unix 
if CCttname = ttynameCfileno(€stdin))) !- NULL 
&& strcmpCttname, name) == 0) 
dt-»unit = fileno(stdin)2; /* stdin *y 
else if CCdt-»unit = open(name, 222 < 0) 
goto error1; 
if C'isattyCdt-»unit)2) + 
closeCdt-»unit); 
goto error; 
} 
/* 
* Force the terminal into single-character, no-echo mode. 
* / 


В5р. 42 

gttyCdt-»unit, &stty. buffer); /* Get current info "y 
gttyCdt-»unit, &dt-»stty.saveo; /* For restore, too ЖУ 
stty_buffer.sg_flags &= ~ECHO; /* Set no echo * / 
stty-buffer.sg-flags іс CBREAK; /* Single character * / 
sttyCdt-»unit, &stty-buffer)2; /* Set temp. mode 57 
signalCSIGALRM, SIG_IGN); /* Ignore timer signals */ 

UNIX_V 

ioctlCdt->unit, TCGETA, &stty_buffer)d; /* Get current info "z 
ioctl(dt->unit, TCGETA, &dt->stty-save);/* For restore, too */ 


stty_buffer.c_iflag = BRKINT ! IXON ! IXOFF; 
stty-buffer.c-oflag = 0; 
stty-buffer.c.cflag = B9600 i CS8 i CREAD ! CLOCAL; 
zeus 
/* 

* The following edit was reported by a customer for a Zilog 
* "Zeus" port but hasn't been independently tested. 

ы 
stty-buffer.c-lflag = 0101; 


stty-buffer.c-lflag = 0; 


stty-buffer.c_cc(VMIN] = 1; 
stty-buffer.c_cc(VTIME] = 2; 
ioctlCdt-»unit, TCSETA, &stty_buffer); /* Set temp. mode ЖУ 


vms 

descrip(name, &dev); 

if Csys$assign(C&dev, &dt-»unit, 0, NULL)? = 55% NORMAL) 
goto error; 


CR ENSURE, амы ИСР ee SDN E RE RINT NS ET, Re A a Nr A re ee Be hh enn an nds ns gas nies etd tape 


677777772 


777 


| 


gomme, 


petis, 





| 


тереептемицеектінеі; 























#endif 
#ifdef 


#endif 
Fifdef 
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rt11 

if C'$$rsts) 5 
$$ferr = Cint) %Е%%ҒАТ; /* Illegal function 
goto error; 

} 

/* 

* Search for a free channel. 

”/ 

for (бі = 12; i > 0; i--) í 
clrxrbC€); 
xrb.xrci = i * 2; 
if C(rstsysC.POSTND) == МОТОРМ» 


break; 
) 
if Сі <= 0) í /* Fail if all channels 
$$ferr = Cint) &E$$NOC; /* are in use. 
goto error; 
) 
dt-»unit = i; /* Save unit number 
/* 
* Оп RSTS, the terminal is opened in a special mode: 
ы 1 binary 
я 16 do пої abort on CTRL-C ог modem hangup 
* 32 terminal service handles ХОҒҒ/ХОМ 
“/ 


sprintfCwork, "Ys/mo:Zd", name, 1+16+32); 
if Crs-openCi, work, "г") t= 0) 
goto error; 
if (Cfirgb.fqflag & OxFF) != TTYHND) 1 
$$ferr = Cint) &E$$NOD; /* Not a terminal 
rs.closeCi); 
goto еггог 1; 


} 

rsx 

if ($$rsts) < 
$$ferr = IE.IFC; /* Not on RSTS/E 
goto error; 

} 

/* 


* We only call fopen(€) to get a free lun. 
“ү 
if CCdt-»fildes = fopen(Cname, "rn")) == NULL) 


goto error1; 
dt-»unit = filenoCdt-»fildes); 
glunCdt-»unit, &lunbuf); 
if С%%роз 
&& lunbuf.g-luna[0] == 7Х” 
&& lunbuf.g-luna[11] == 'K*) 
dt->pos_xk = TRUE; 
else 
dt->pos_xk = FALSE; 
if (Ci = qiowCIO-ATT, dt-»unit, QIO_EFN, 
NULL, NULL, &noparm)) != IS_SUC) í 
fclose(dt->fildes); 
$$ferr = i; 
goto error; 


* / 


* / 
%7 


м 


*7 


*/ 
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Out buffer setup 
Normally speaking 
Normal exit 


Error, free device 
and DECTALK buffer 
Error exit 


endif 
/* 
* Normal exit, initialize other pointers 
* / 
dt->link = dt.root; 
dt_root = dt; 
dt-»out.ptr = dt->out_buff; /* 
dt->flag = _FLAG_SPEAK; /?* 
return (dt); /* 
еггог 1: free(dt-»device); /* 
error2: free(Cchar *) dt); /* 
return CCDECTALK *)NULL); 77 
} 
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DTPEEK.C 
This routine tests if a character is pending from DECtalk. The character may be 
a keypad character (user selected) or part of an escape sequence. 


/* LIBRARY 
xf 


#ifdef DOCUMENTATION 











title dt_peek Test if Character Available from DECtalk 
index Test if character available from DECtalk 
synopsis 

#include <stdio.h> 

#include "dectlk.h" 

int 

dt_peekCdt) 

DECTALK *dt; /* Device descriptor a7 
description 


Returns TRUE if a character is pending from DECtalk. | 
Note that this may be a keypad input character Саз | 
entered by the user) or part of an escape sequence. | 


dt_peek(€) does not flush pending output. It contains 
operating-system specific code. 


note 
This module contains specific code for UNIX 
4.2BSD. The makefile for the library should 
ФаеҒіпе BSD_42. 
bugs 
Tested only on VMS. 
fendif 
#include <stdio.h> 
#include "dectlk.h" 
/* 
* Define all DECtalk library globals in this module. 
a s 


Fifdef unix 


#1пс1иде «errno.h» 
#ifdef BSD_42 

#include <sys/types.h> 
#include «time.h» 
Fendif 


icai 
iit ig 
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2277 


int 
dt.peekCdt, sec) 
register DECTALK *dt; /* DECtalk device жу 
/* 
* UNIX. PEE 
* / 
1 
register int incount; /* Count and error code */ 
Fifdef  BSD.42 fees 
auto long pending; /% Number pending “/ 
Felse 
register int ecode; /* For error handling ”/ 
extern int errno; /* System error value “у е 
fendif 
/* 
* Anything buffered? adds 
“/ 


if Cdt-»pend.fc > 0 1! dt-»in.ptr < dt-»in.end) 
return CTRUE); 
fifdef  BSD.42 Е 
/* 
* Works for 4.1 BSD, too. 
* Won’t work for Unix V7 or System N (Н >= 3) 
РУ, жады 
ioctlCdt-»unit, FIONREAD, &pending); 
returnCpending » 0); 


felse 
di-»in.ptr = dt->in_end = &dt-»in.bufft01; Eros 
alarmC1); /* Start timeout ж. | 
errno = 0; /* Clear error flag “/ | 
incount * read(dt-»unit, dt->in_buff, IN.BUFLEND; 
ecode = errno; /* Save error code */ т" 
а1агт(0>; /* Cancel timeout ығ | 
if Cincount < 0 && ecode == EINTR) /* Did it timeout? */ 
return (FALSE); /* Return failure * / 
if Cdt_abort 1! incount <= 0) /* Other error? * / — 
return (FALSE): /* Return bad failure * / | 
dt-»in.end = &dt-»in.bufflincount]; 
return CTRUE); 
} | 
*endif 
#ifdef vms pem 
#include «ssdef.h» /* System status codes  */ | 
#include <iodef.h> /* 1/0 request codes 77 
typedef struct io.status block + 
short int status; /* I/D status code | ж ups 
short int term_offset; /* Datum size жұ | 
short int terminator; /* Input terminator */ | 
short int term.size; /* Terminator size “/ 


} IOSTAB; TT 


APEE 


= C PROGRAM EXAMPLE 159 





int 
dt_peek(dt) 








register DECTALK *dt; /* DECtalk device vy 
/* 
pum * VMS: Fill the input buffer, too. 
i +y 
1 
register int incount; 
pem struct type-ahead + 
| | short pending-count; 
char first.character; 
char char_reserved; 
=ч int long-reserved; 
) type-ahead; 
IOSTAB status; /* 1/0 status block */ 
A if Cdt-»pend.fc > 0 il аї->іп_ріг < dt-»in-end) 
| return (TRUE); 
incount = sys$qiowC1, /* Event flag d 
dt-»unit, /* Input channel "7 
Рта I0$ SENSEMODE ! IO$M_TYPEAHDCNT, 
| &status, /* 1/0 status block */ 
NULL, /* AST block (попе) “/ 
0, /* AST parameter */ 
&type-ahead, /* P1 - buffer * / 
sizeof type-ahead, /* P2 - buffer length “/ 
0, /* P3 - */ 
NULL, /* P4 - * 4 
NULL, /* PS - ignored (prompt buffer) */ 
0); /* PG - ignored (prompt size) “/ 
return Cincount == SS$_NORMAL && type-ahead.pending-count > 0); 
} 
*endif 





#ifdef rtit 


/* 
Жк * RSTS/E 
| 
#include «rsts.h» 
р" int 
| dt-peekCdt) 
register DECTALK *gt: /* DECtalk device */ 
= 
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/* 
* RSTS/E: Fill the input buffer, return the next (first) character. 
”/ 
1 
register int incount; /* Count and error code */ 
if Саї->репа_#с > 0 1! dt-»in.ptr < dt-»in.end) 
return CTRUE); 
/* 
* Ше must refill the buffer 
# / 
dt->in_ptr = dt-»in.end = &dt-»in bufft01; 
clrxrb(); 
xrb.xrlen = 4; /* No delimiter * / 
xrb.xrci = dt-»unit * 2; 
xrb.xrblkm = TTYHND; 
rstsys(€_SPEC); 
clrxrbC€); 
xrb.xrlen = 3; /* No echo -/ 
xrb.xrci = dt-»unit * 2; 
xrb.xrblkm = TTYHND; 
rstsys(€_SPEC); 
incount = rs.read(dt-»unit, dt-»in.buff, 
IN-BUFLEN, 0, 0, 0, 8192); 
if Cincount == -CHNGTTY)) 
return (FALSE); 
else if Cincount <= 0) 
return CFALSE); 
dt-»in.end = &dt-»in.bufflincount]; 
return CTRUE); 
) 
#endif 
*ifdef rsx 
/* 
* Load in RSX specific information: 
* cx.h common header 
* qiofun.h I/O service function codes 
Ы qioret.h 1/0 service error and status codes 
* qiottd.h Terminal 1/0 service bits and bytes 
* lunbuf.h Device characteristics buffer 
* / 
*include «cx.h» 
finclude «qiofun.h» 
include «qioret.h» 
finclude «qiottd.h» 
*include «lunbuf.h» 
#define GIO.EFN 1 /* Т/О event flag * / 
#define MKT.EFN 2 /* Time event flag */ 
static char gmcbuf[2] = 5 TC_TBF }; /* get typeahead count  */ 
static QIOPARM gmcparm = { gmcbuf, sizeof gmcbuf }; 
static int termtable[161; /* Terminator bitmask * / 
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int 
dt-peekCdt) 
register DECTALK “ats /* DECtalk device Та 
/* 
* RSX: 
* / 
{ 
register int incount; /* Count and error code */ 
register char "ip; /* To copy to rsx buff */ 
int errorcode; 
/* 
* Return buffered character Cif any) 
жу 


if Cdt->»pend_fc > 0 ff dt->in-ptr < dt-»in.end) 
return (TRUE); 
/* 
“ We must refill the buffer 
vy 
dt-»in.ptr = dt-»in.end = &dt-»in.bufft01; 
if (dt->pos_xk) í 
/* 
* The PRO-350 ХК: port is actually pretty simple. 
dt->parm.buffer = dt-»in-buff; 
dt-»parm.size = ІМ. ВОҒ(ЕН; 
dt-»parm.p3 * 0; /* No timeout ai 
errorcode = qiowCIO.RLB 1 TF_TMO, dt-»unit, QIO_EFN, 
&dt->iosb, NULL, &dt-»parm); 
if CCincount = fixiosb(dt)) == 0) { 
return (FALSE); 
} 
dt-»in.end = &dt-»in.bufflincount]l; 
return (TRUE); 


} 
else { 
/* 
* Check whether anything is in the 
* system type-ahead buffer. 
* / 
errorcode = діом(5Ғ. ОМС, dt-»unit, QIO_EFN, 
&dt-»iosb, NULL, &gmcparm); 
return Cerrorcode == IS.SUC && gmcbuf[ 1] > 0); 
} 
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static int 
fixiosbCdt) 
register DECTALK “аі: /* DECtalk device ЖУ 


/% 


* This routine returns the correct input count. 
* The code is unusual. 


* 


* fixiosb(D) returns the true byte count. 


) 
endif 


extern int $$ferr; 


if Cdt->»iosb. terminator != NUL) { 
/* 


“ Append the terminator to the buffer. 
* / 
dti-»in.buffldt-»iosb.count] = dt-»iosb.terminator; 
dt-»iosb.count**; 
) 
if Cdt.abort 
$i dt-»iosb.status == IE ABO 
ti dt-»iosb.count == 0) { 
return (0); /* Read aborted */ 
} 
else if Cdt-»iosb.status != IS_SUC 
&& dt->iosb.status != IS.TMOD { 
$$ferr = dt-»iosb.status; 
return (09; /* 1/0 error */ 
} 
return Cdt-»iosb.count); 
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DTPESC.C j 
This routine compiles an appropriate escape sequence from the parameter 
buffer. 





/* LIBRARY 
* / 





#ifdef DOCUMENTATION 








title dt_pesc Transmit Escape Sequence 
index Transmit escape sequence 
synopsis 

finclude «stdio.h» 

#include "dectlk.h' 


P dt.pescCdt, seq) 
| DECTALK *dt; /* Device descriptor 7 
SEQUENCE *seq; /* What to transmit * / 


description 


Compile an appropriate escape sequence from the | 
parameter buffer. This is similar to putchar) | 
m except when seq->state is ESC, CSI, or DCS. Іп 
н these cases, the function generates an appropriate 
sequence from the passed data structure. ddt.pescO 
calls the user-supplied dt.put() to output each 
character. 





C1 control sequences are sent in their eight-bit 

form if .FLAG.EIGHTBIT is set in dt-»flag. If 

this bit is off, they are sent in their «Е5С>Х 

form. If the application program sets -FLAG-EIGHTBIT 
it must also ensure that the operating system 
transmits eight data bits, and that DECtalk 





1 was setup аз HOST FORMAT EIGHT. 
No value is returned. 
ш #endif 
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#1пс 1иде «stdio.h» 
include "dectlk.h"' 


dt-pescCdt, seq) 


register DECTALK *dt; /* Dectalk device "7 
register SEQUENCE *seq; /* Sequence buffer * / 
мы 


* Output the character Cin seq-»state) and maybe a sequence, too. 
“/ 
1 
register unsigned i; /* Index into inter[], param[]. */ 
unsigned max; /* Max for inter[] and param[]. */ 


#ifdef DT_DEBUG 
if (dt-debug) + 
printfC"put: \""); 
if CisattyCfilenoCstdout))) 
fflushCstdout); 
) 
fendif 
і = seq-»state; 
if CCdt-»flag & _FLAG_EIGHTBIT) == 0 
&& i >= 0x80 && i <= Ox9F) { 
/* 
* Dutput is in 7-bit mode and the character is 
* a C1 control character. Convert it. 
ui 
dt-put(dt, ESC); 
dt-put(dt, і - 0x40); 


) 
else { 
/* 
* Not the special case; output the character. 
* / 
dt.put(dt, i); 
} 


switch €i) ( 
case ESC: 
case CSI: 
case DCS: 
/* 
* Here із a sequence. Output all of its components. 


* First, the parameters. 

T dE counts the parameters 

* тах stores the parameter max. 

* val working copy of parameter value. 
ү 


if Cseq->private != 0) 
dt-put(dt, seq->private); 
тах = seq-»5param[01]; 
if (тах > SEQ.PARMAX) 
max = SEQG.PARMAX; /* Too many, use limit  */ 
for Ci = 1; i <= max; i++) ( 
if Сі > 1) 
dt-putCdt, *;'); 
if Cseq-»param[il] != 0) 
intout(Cdt, seq-»param[i1); 
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/* 

* Output intermediates. 

* i counts intermediates. 

* max stores the number to output. 
и 


тах = зед->:1п{ег[ 0]; 
if (тах > SEG.INTMAX) 


тах = SEQG.INTMAX; /* Too many, use limit 


for Ci = 1; i <= max;) + 
dt_put(Cdt, seq-»inter[i**1); 

) 

dt-putCdt, seq-»final); 

break; 


default: 
break; 
} 
#ifdef  DT.DEBUG 
if Cdt-debug) 
printfC"N'Nn!"); 
#endif 
} 
#ifndef INT_32 
Fifdef vax 
#define ІМТ. 32 
f*endif 


#ifdef  M68000 
#define INT.3?2 
Fendif 
endif 


static unsigned power10[] = 
{ /* 
* Powers of 10 for intout 
*y 
#ifdef  INT.3? 
10000000, 
1000000, 
100000, 
fendif 
10000, 
1000, 
100, 
10, 
1, 
bi 


ФаеҒіпе NPOWERS C(sizeof ромег10) / Csizeof Cunsigned))) 


static 

intoutCdt, value) 

DECTALK | *di: /* DECtalk device 
register unsigned value; /* Value to convert 
/* 


* Convert an unsigned number to ASCII and call dt.put() on 
* each character. Note, as implemented here, a zero value 


* does not output anything. 
*/ 


/* Output the final 
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register unsigned *power; 
int out.char; 
int nonzero; 
power = ромег10; /* Pointer to power table 27 
nonzero = FALSE; /* Don't output leading zeros * / 
до 1 
£* pU 


* Loop until all places except digits place 
* have been done. 


“/ 
for Cout.char = 0; value >= *power; out—char++) MON 
value -= *power; /* Subtract a power Ж 
if Споптего 11! out.char > 0) + 
nonzero * TRUE; /* Not leading zero */ 
dt.put(dt, out.char + '0*); oo 
} | 


} while С++ромег < &power 10L NPOHERS1) ; 
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DTPHON.C 
This routine sends a DECtalk phone message. 


/* LIBRARY 
*/ 





#ifdef DOCUMENTATION 





title dt_phone Send a Phone Message 

— index Send a phone message 
| synopsis 

finclude <stdio.h> 

#include "dectlk.h" 

int 

dt-.phoneCdt, рз, p4) 
ш DECTALK *dt; /* Device descriptor “/ 
int p3; /* P3.PH-xxxx parameter */ 

int р4; /* timeout or rings * / 
- description 


This routine (which may be implemented as a macro) 
sends а DECtalk phone message Ci.e., the p2 parameter 
is P2_PHONE). 





p3 and p4 should be given as -1 if no parameter is to 
be sent. 


It then reads the status reply and returns TRUE 

if the r1 and r2 parameters are R1_DECTALK and 
R2_PHONE respectively. The application program 
should then test for offhook/onhook as appropriate. 





Returns TRUE if successful. 1+ FALSE, something is funny. 


mm #endif 
бітсінде <stdio.h> 
#include "dectlk.h" 


*#ifdef  dt.phone 
fundef  dt.phone 
белді? 


int 
dt.phoneCdt, рз, p4) 
register DECTALK *dt; /* Device descriptor as 
int p3; 
int p4; 
/* 
* Send a phone message. 
mmm А 
| 4 





return (dt.msg(dt, P2-PHONE, рз, p4, R2-PHONE, -1)); 
} 


168 C PROGRAM EXAMPLE 


DTPTES.C 
This routine tests a phone reply. 


/* LIBRARY 
* / 


#ifdef DOCUMENTATION 


title dt_ptest Test Phone 
index Test phone 
synopsis 
finclude «stdio.h» 
finclude "dectlk.h'" 
int 
dt-ptest(dt, r3) 
DECTALK *dt; /* 
int r3; /* 


description 


This routine Cwhich may be 
is used to test the result 


The parameter is a R3.PH.... 


Reply 
reply 


Device descriptor */ 
КЗ.РН.хххх parameter */ 


implemented as a macro) 
of a dt_phone() message. 
reply value. 


It returns TRUE if the current reply is a DECtalk 
phone reply with the specified R3 parameter. 


*endif 
finclude «stdio.h» 
# 1 пс 1 иде "dectlk.h' 


#1 тде+ dt_ptest 
undef dt _ptest 
endif 


int 
dt.ptest(dt, r3) 

register DECTALK *dt; 
int r3; 
/* 

* Test a phone message. 

52 
1 


/* Device descriptor ыз 


return Cdt-testCdt, R2.PHONE, r3)); 


} 
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DTPUT.C | 
This routine sends one character to the DECtalk terminal line. No value is 
returned. 


/* LIBRARY 
ы 


#ifdef DOCUMENTATION 


title dt_put Write one Character to DECtalk 
index Write one character to DECtalk 
synopsis 

#include <stdio.h> 

#include "dectlk.h" 


dt_putCdt, c) 


DECTALK *dt; /* Device descriptor Ty 
int с; /* Character to write udi 
description 


One character is written to the DECtalk terminal line. 
No value is returned. 


If DT_DEBUG is defined when the library is compiled 
and the global dt.debug is set nonzero (Бу the 
application program), the character 

written is logged to the standard output device. 


#endif 
#include <stdio.h> 
Finclude "dectlk.h" 


*#ifdef  dt.put 
fundef  dt.put 
белді?” 


dt-put(Cdt, c) 


register DECTALK *dt; /* Device descriptor * / 
register int с; /* Character to write Е: 
1 

extern int dt debug; 


dt.ioputCdt, с); 
Kifdef  DT.DEBUG 
if Cdt.debug != 0) 
аі. асһағбс, stdout); 
#endif 
} 
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DTREAD.C тт 
This routine reads a sequence or character. 


722227 


/ *)LIBRARY 
"f 


рен, 


*ifdef DOCUMENTATION 


title dt_read Read Sequence or Character 
index Read sequence or character 
synopsis 
finclude «stdio.h» 
fFinclude "dectlk.h" 
int 
dt-read(dt, sec) 
DECTALK *dt; /* Device descriptor жу | 
char sec; /* 0.5. timeout value */ 


description 
Read an escape sequence or keypad character. Ignore 
any characters between the DECtalk final and the 
string terminator. Return the character read or 


the sequence introducer. | 
endif 
#1 пс ] иде «stdio.h» | | 
Finclude "dectlk.h" 
int 
dt.read(dt, sec) [тт 
register DECTALK *dt; /* Dectalk device ТР | 
int sec; /* Operating system timeout ЕА 
{ 

register int code; | 

register int i; 

/* 

* Read another sequence (ог continue reading this one). пш 

* Copy the sequence read into the working "reply" buffer. | 

* Note, this code is not quite general enough for all 

* escape sequence parsing. Specifically, it cannot 

* properly deal with CO control characters embedded үте 

* inside of escape sequences (аз is necessary if the 

* operating system cannot process XOFF/XON controls). 

ТА 


рондо: 
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dt-»seq.state = 0; 
dt-»reply.state = code = dt.gesc(dt, sec); 
switch (code) ( 
case CAN: 
case SUB: 
goto again; 


case ESC: 
case CSI: 
case DCS: 
dt-»reply.final = dt-»seq.final; 
dt-»reply.private = dt-»seq.private; 
for (1 = 0; i <= dt-»seq.inter[01; ++i) 
dt-»reply.inter[i] = dt-»seq.inter[il; 
for (1 = 0; i <= dt-»seq.param[01; ++i) 
dt-»reply.param[il = dt-»seq.param[il; 
break; 


default: 
dt-»reply.final = dt-»reply.private = 
dt->reply.inter(0] = dt-»reply.param[0] = 0; 
break; 

} 

if (dt->reply.state == DCS) { 
/* 


* Ignore text between DCS final and ST 
ty 
dt-»seq.state = 0; 
do í 
code = dt.gesc(dt, 1); 
+ while Ccode > 0 && code < 0x80); 
} 
return Cdt->»reply.state); 


171 
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DTRESE.C | pi 
This routine sends a soft-reset escape sequence. | 


/ *)LIBRARY 
”/ 
fifdef DOCUMENTATION 
title dt_reset DECtalk Soft Reset 
index DECtalk soft reset | 
Synopsis 
finclude «stdio.h» 
#include "dectlk.h" | 
dt-reset(Cdt) 
DECTALK *gt: /* Device descriptor * / 
description 
Send a "soft reset" escape sequence. 
No errors are possible. т" 
*endif 
finclude «stdio.h» NE 
#include "dectlk.h" | 
static SEQUENCE soft. reset = { 
054, prr O 40 E, { 1, "ке E 
}; | 
dt_reset(dt) mm 
register DECTALK tdt: | 
/* 
* dt-reset() sends a soft-reset escape sequence. 
* / aee 
1 
dt.pesc(dt, &soft. reset); 
dt->flag t= _FLAG_SPEAK; /* Speaking now T 
dt-»timeout = 0; /* No timeout now */ аш 
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DTSAVE.C 
This routine saves user type-ahead characters. 


/* LIBRARY 
ЫА 


fifdef DOCUMENTATION 


title dt_save Save User Type-ahead 
index Save user type-ahead 


synopsis 


#include <stdio.h> 
#include "dectlk.h" 


int 

dt.saveCdt, c) 

DECTALK *dt; /* Device descriptor */ 
char с; /* Character to save */ 


description 


If c is a keypad character, save it in the 
type-ahead buffer and return TRUE, else return 
FALSE. 


If the current reply is a timeout and nothing 
is stored in the type-ahead buffer, save ‘T’ 
and clear the timeout flag. This is necessary 
as a timeout sequence may be returned in 

the middle of a message/reply sequence. 


This routine should not be called by application 
programs. 


#endif 


#include «<stdio.h> 
#include "dectlk.h" 
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int T T fenem 
dt.saveCdt, c) 6 В M 
register DECTALK *dt; /* Dectalk device | 77 
int с; /* Character to test ы 
register int timeout; /* Current value ЖА 
if C!'ldt_isvalid(c)) (4 /* Not a keypad button? */ 
if C!idt_istimeoutCdt)) /* If it isn’t timeout, */ Mp. 
return CFALSE); /* it's not for us. * / 
else 1 /* Timeout is funny */ 
Аы T 
* Ignore timeout if timer is set to zero or | | 
* something is already in the type-ahead buffer. | 
*/ 
timeout = dt-»timeout; /% Get old value * / 
dt-»timeout = 0; /* Clear timer */ т 
if Ctimeout == 0 11 dt_iskeyCdt)) | 
return (TRUE); /* Toss it away "7 
c = “7”; /* Save it in typeahead */ 
} і MINI NR 
} 
if Cdt-»pend.fc < PEND_SIZE) { /* Save it if there's */ 
dt-»pend.fc**; /* enough room, else EJ. 
dt-»pend[dt-»pend.fpl = c; /% throw it away. е4 (^ | 


if (++dt->»pend_fp >= PEND_SIZE) 
dt->pend_fp = 0; 

} | 

return CTRUE); т 
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DTSPLICE.C 
This routine lets you control a terminal connected to DECtalk's local port. 





E | / *)LIBRARY 
*/ 





#ifdef DOCUMENTATION 








title dt-splice Manage Local Terminal 
index Manage Local Terminal 
synopsis 

finclude <stdio.h> 

#include "dectlk.h" 





dt.splice(dt, flag) 





DECTALK “41; /* Device descriptor “/ 
int flag; /* Required state VE 
description 


dt.splice() allows control over a terminal 
connected to DECtalk's local port. Note that 
the terminal must correctly process ANSI escape | 
sequences. Specifically, it must ignore any | 
escape sequence that it doesn't understand. 








The flag parameter may have the following 
(bit-encoded) values. 





SPLICE_SPEAK Speak subsequent text, 
if set. Do not speak text 
if not set. Initially zero. 


b 4 SPLICE-LOG Text sent to DECtalk is sent 
Cin raw mode) to the local 
terminal if set. Initially 
n not set. 
SPLICE-TERM Text typed on the local 
terminal is sent to DECtalk 
m if set. Initially not set. 
The bits would normally be set and cleared in combination. 
For example: 
AE dt_splice€dt, SPLICE_SPEAK); 
Speak text, don’t log it, ignore text typed on the host. 


dt.spliceCdt, SPLICE-LOG | SPLICE_TERM); 


Stop speaking text, transmit text from/to the attached 
terminal. 
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Ffendif 
#include <stdio.h> 
“include "dectlk.h"'" 


dt.spliceCdt, flag) 


register DECTALK *dt; 
register int flag; 
/% 
* Manage line-splice modes. 
БА 
4 


spliceCdt, flag & SPLICE.SPEAK, _FLAG_SPEAK, 
P2_SPEAK, 1); 

spliceCdt, flag & SPLICE_LOG, -FLAG-LOG, 
P2-LOG, LOG_RAWHOST); 

splice€dt, flag & SPLICE.TERM,  .FLAG.TERM, 
P2_TERMINAL, TERM_HOST); 


} 

static 

splice(dt, flag, bit, p2, p3) 

register DECTALK * dt; 

int flag; /* TRUE to set bit 
int bit; /* dt-»flag bit to do 
int Р2, РЗ; /* Рог DCS 

/* 


* / 
zy 
* / 


* Do the dt_splice€) work. If dt-»flag doesn't agree with flag, 


* send the appropriate dt_dcs(). 


*/ 
1 
if CCCdt-»flag & bit) != 0) !- (flag !- 00) { 
if (flag {= 0) { /* Turn mode on, 
dt->flag f= bit; /* Set flag bit and 
dt-dcs(dt, p2, рз, -1); /* Sends the p2/p3 
} | 
else + /* Turn mode off, 
dt-»flag &* “Біз; /* Clear flag bit and 
dt-dcs(dt, p2, 0, - 12; /% Send "mode off" 
} | 





*/ 
* / 
жу 


* / 
* / 
* / 
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DTST.C 


This routine sends a string terminator to DECtalk. This string terminates pho- 


nemic text or telephone dial commands. 


/ *)LIBRARY 
”./ 


#ifdef DOCUMENTATION 


title dt_st Send String Terminator 


index Send String Terminator 
synopsis 

#include <stdio.h> 

#1пс 1 иде "dectlk.h" 

int 

dt-stCdt) 

DECTALK “41; /* Device descriptor "y 
description 


This routine sends a string terminator to DECtalk. 
This is needed to terminate phonemic text or telephone 
dial commands. 


А phonemic text sequence would be sent as follows. 
dt.cmdCdt, p2, p3); 


dt_talk€dt, "ҺҺ”еһҺ1ом. 9; 
dt_st(dt); 


endif 
#include <stdio.h> 
#include "dectlk.h" 


static SEQUENCE string-terminator = ( 
ST 
}; 


dt.stCdt) 
DECTALK *dt; /* Device descriptor 
/* 

* Send a string terminator 

* / 

{ 

dt_pesc(dt, &string-terminator); 
} 








M MT 
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DTSYNC.C 
This routine synchronizes the application with DECtalk. 


/ *)LIBRARY 
* / 


#ifdef DOCUMENTATION 


title dt.sync Synchronize with DECtalk 
index Synchronize with DECtalk 
synopsis 
#include <stdio.h> 
#include "dectlk.h'" 
int 
dt_sync(dt) 
DECTALK *dt; /* Device descriptor 7 


description 


The program delays until all text sent to DECtalk 
has been spoken. 


Returns TRUE if successful. If FALSE, something is funny. 


endif 
*include <stdio.h> 
finclude "dectlk.h" 
int 
dt.syncCdt) 
register DECTALK *dt; /* Device descriptor "7 
/* 
* Synchronize DECtalk and the application. 
* 
1 
dt-dcsCdt, P2.SYNC, -1, -19; /* Synchronize ft 
dt->flag i= .FLAG.SPEAK; /* Now speaking 77 


return Cdt.msgCdt, P2_IX_QUERY, -1, -1, R2_IX_QUERY, -1)); 


А 
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DTTALK.C 
This routine speaks one line of text. 








/ *)LIBRARY 
*/ 
” { #ifdef DOCUMENTATION 
title dt_talk Speak One Line of Text 
index Speak one line of text 
É d synopsis 
finclude <stdio.h> 
#include "dectlk.h" 





dt.talkCdt, text) 





DECTALK *dt; /* Device descriptor “/ 
сһаг *text; /* What to say afd 
description 


This function sends a line of text to DECtalk. 





dt_talk(dt, NULL) flushes DECtalk by sending 
a vertical-tab sequence. 














| #endif 

| 

| #include <stdio.h> 

| #include "dectlk.h' | 
static char vtlinetf] = { VT, 0 ); | 





dt-talkCdt, text) 


register DECTALK *dt; /* Device descriptor “/ 
register char *text;  /* Text pointer */ 
{ 





if Ctext == NULL) 
text = vtline; 
while (*text != 0) 
dt-put(dt, *text++); 
dt_eol(dt); 
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DTTEST.C 
This routine tests a DECtalk reply. 


/ * LIBRARY 
* / 


#ifdef DOCUMENTATION 


title dt_test Test a DECtalk Reply 
index Test a DECtalk reply 
synopsis 
finclude <stdio.h> 
#include "dectlk.h" 
int 
dt_test(dt, r2, r3) 
DECTALK *dt; /* Device descriptor ”/ 
int r2; /* R2-xxx parameter ж 
int r3; /* R3-xxx parameter * / 
description 


This routine checks the last reply received from 
DECtalk against the model. r3 is -1 to ignore it. 
It returns TRUE if the reply is a properly parsed 
DECtalk reply sequence, or FALSE on any failure. 


*endif 

#include <stdio.h> 

#1пс | иде "dectlk.h' 

int 

dt.testCdt, r2, r3) 

register DECTALK “а: /% Device descriptor * / 
int г2: 

int r3: 

/* 


* Test the current returned sequence for the proper 
* DECtalk reply. r3 is -1 to ignore it. 
* / 
{ 
if Cdt-»reply.state == DCS 
&& dt-»reply.final == DCS.F.DECTALK 
&& dt-»reply.inter[0] == 0 
&& dt->reply.private == 0) { 
if Cdt-»reply.paramt1] == R1_DECTALK 
&& dt->reply.param[2] == r2 
&& (r3 == -1 11 dt-»reply.paramt3] == r3)) 
return (TRUE); 


} 
return (FALSE); 
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DTTIME.C 
This routine enables or disables telephone keypad timeout. 








/*) LIBRARY 
* / 





#ifdef DOCUMENTATION 











title dt_timeout Enable or Disable Keypad Timeout 
index Enable or disable keypad timeout 
synopsis 

#include <stdio.h> 

#1 пс 1 иде "dectlk.h" 

int 

dt_timeout(dt, sec) 

DECTALK “аі; /* Device descriptor ЕА 

int sec; /* Timeout in seconds * / 
description 





If sec is nonzero, timeouts are being enabled; 
if zero, they are being disabled. 


Enable keypad timeouts if sec is nonzero and there 
is no data in the type-ahead buffer Cand timeouts 
are not already enabled). 








Disable timeouts if they are enabled and sec is zero, 
or any data is in the type-ahead buffer Ceven if 
sec is nonzero). 





A Before enabling timeouts, DECtalk is synchronized. 





Returns TRUE if successful. If FALSE, the telephone 
may have been hung up. 





ы - белді” 
finclude <stdio.h> 
#include "dectlk.h" 
int 
dt.timeout(dt, sec) 
register DECTALK *dt; /* Device descriptor Т 


register int sec; /* Timeout in sec seconds ЫА 
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Enable or disable timeout. 


No errors are possible. 


Note that timeout(dt, 15) looks at the state of the 
type-ahead buffer before deciding whether to turn 
timeouts on, off, or to do nothing. 


if €sec != 0) { 
if Cdt iskeyCdt)2) 
sec = 0; 
if (sec != 0) { 
dt_sync(dt); 
if (dt_iskey(dt 
sec = 0; 
} 
} 
if Cdt->timeout == sec) 
return (TRUE); 
dt-phoneCdt, P3.PH.TIME 
dt-»timeout = sec; 
if Cdt_onhook(dt) 11 dt 
return CTRUE); 
return (FALSE); 





7% ІТ enabling, 
/* Disable if typeahead 


/* Still enabling? 
/* Synchronize and 
22 /% Check again. 


/* Don’t set to the 
/* same value 
QUT, sec); 


-offhookCdt)) 


*/ 


*/ 
тү 
* / 


* / 
* / 


| 


| | 


не, 


ý I 


7 


Га 


А 


2, | 
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DTTONE.C 
This routine sends the msg test string as a tone dialing sequence. 


* / 


#ifdef DOCUMENTATION 


title dt_tone Send DTMF Tones 
index Send DTMF tones 
synopsis 
#include <stdio.h> 
#include "dectlk.h" 
int 
dt_tone(dt, msg) 
DECTALK *dt; /* Device descriptor */ 
char *msg; /* Announcement */ 


description 


This routine sends the msg text string as a tone 
dialing sequence. 1+ the telephone was on-hook 
when dttone() was called, it will be returned 

to the on-hook condition. Note, this routine 
may not work to your satisfaction in countries 
which require automatic announcement messages 

on automatically dialed calls. See your DECtalk 
programmer’s manual for more information. 


For message text тау contain any valid touch-tone 
characters ('"0123456789**ABCD") or the characters 
ʻi? (for а one second delay) or the “^^” for a 250 
millisecond switch-hook flash. А11 other characters 
are ignored. 


Note that the telephone will not be hung up before 
dialing if it is offhook when the command is issued. 


#endif 

#include — <stdio.h> 

#include ' "dectlk.h" 

int 

dt_tone(dt, message) 

register DECTALK “аі; /* Device descriptor "7 


char *message; /* Announcement ny 
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/* иш 
* Send tones. 
* y 
1 ГАШ 
register int state; nM 
register int code; 
dt.phoneCdt, -1, -19; "s 
state = dt onhookCdt); | | 
dt_cmd€dt, P2.PHONE, P3_PH_TONE); 
dt.talkCdt, message); 
dt_st(dt); 
do { B. I 
code = dt.read(dt, 30); 
} while (code == ST 11 dt.save(dt, code)); 
if (state) 
dt_hangup(Cdt); кән 
» 


D. 
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DTTRAP.C 
This routine traps CTRL-C interrupts. 


/* LIBRARY 
* / 





#ifdef DOCUMENTATION 








title dt_trap Trap «CTRL-C» Interrupts 
index Trap «CTRL-C» Interrupts 
synopsis 
finclude <stdio.h> 
#include "dectlk.h" 
| dt.trapO 
description 





Set the global dt.abort flag if the user types 
«CTRL-C» at the command terminal. (Оп UNIX, 
this is interpreted as catching the INTERRUPT 
signal, which is not necessarily «CTRL-C», and 
which may be generated by running the "kill" 
system program. 





When the interrupt is received, pending 1/0 
is cancelled (оп those operating systems where 
this makes sense). 











If dt_abort is set TRUE when the interrupt is received, | 
the program aborts. | 


No error is returned. 








#endif 
#include <stdio.h> 
#include "dectlk.h" 





Fifdef unix 
finclude «signal.h» 





static 
catchC) 
1 





if Cdt.abort) 
.exitC2)2; 
dt-abort = TRUE ; 
) 





dt_trap() 
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/* 

* Trap 
еу 

1 


) 
Ffendif 


#1 Ғде? 


PROGRAM EXAMPLE 


CTRL-C interrupts. 


signalCSIGINT, catch); 
signalCSIGTERM, catch); 


vms 


#include «ssdef.h> 
#include €«signal.h» 


static 
catch) 
{ 


} 
dt.trap( 
/* 


* Trap 
*/ 
{ 


} 
Fendif 


Fifdef 
Finclude 
білсінде 
#include 
Finclude 
Fdefine 


static 
catch) 
4 


register DECTALK *dt; 


if Cdt.abort) 
-ехі1(55% ABORTO); 

dt_abort = TRUE; 

for Сай = dt.root; dt !- NULL; dt = dt-»link) 
sys$cancel(dt-»unit); 


) 


CTRL-C interrupts. 


signalCSIGINT, catch); 


rsx 
<cx. h> 
«qiofun.h» 
«qioret.h» 
«qiottd.h» 
GIO-EFN 1 


register DECTALK *dt; 


astset(); /* AST entry жу 


if Cdt.abort) 
$$faild); 
dt_abort = TRUE; 
/* 
* Kill all pending DECtalk 1/0 
* / 
for (dt = dt.root; dt != NULL; dt = dt-»linkO í 
GiowCIO_KIL, dt-»unit, QIO_EFN, 
&dt->iosb, NULL, &dt->parm); 


} 
astx( 1); | /* AST exit vy 





Кашы | 


1.77 
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static GIOPARM astparm = 4 NULL, 0, catch }; 





dt_trap() 
/* 
* Trap CTRL-C interrupts. 
*/ 
Pe 





qiowCIO-ATA, fileno(stderr), QIO_EFN, 
NULL, NULL, &astparm); 





} 
ФетдаіҒ 
#ifdef rtit 





static 

catch @) 

/* 
* Executed by the operating system if an interrupt is 
* detected. 
*/ 

1 








if Cdt.abort) 
$$faild); 
dt.abort = TRUE; 
) 


dt-trapt) 

/* 
* Trap CTRL-C interrupts. 
"7 

{ 


i 
| 
| 
| 
| 
| 





setcc(catch); 
} 
#endif | 
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DTVISI.C 
This routine generates a visible ASCII representation of a character stored in 
the work buffer. 


/* LIBRARY 
“/ 


fifdef DOCUMENTATION 


title dt_visible Generate Visible Representation 
index Generate Visible Representation 
synopsis 
char workL121; /* Output buffer */ 
char * 
dt.visibleCc, work) 
int с; /* Character to dump at 
char моғКГ1; /* Work buffer * / 


description 


А visible ASCII representation of the character 
is stored in the work buffer. А pointer to the 
end of the output string is returned. 


Note that this routine is independent of DECtalk 
definitions Cexcept that it knows about the DT_ERROR 
and DT-TIMEOUT error codes). 


Fendif 

Finclude «stdio.h» 

Finclude "dectlk.h" 

char * 

dt-visible(c, buffer) 

register int с; /* Character to convert ./ 
register char *buffer; /* Where to store conversion * / 


КУУС СС 


fitim, 


УЛТ 


ТТА 


7 7 


оне 
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/* 

* Make a character "visible" ASCII. 

* Return a pointer to the trailing EDS. 
ЫА 
{ 








register int flag; 


switch Сс) 1 

case NUL: 
strcpyCbuffer, "<NUL>"); 
break; 





pem case DT.ERROR: 
AN strcpyCbuffer, "«ERROR»"); 
| break; 





case DT_TIMEOUT: 
strcpyCbuffer, "«TIMEOUT»"2; 
break; 





case ESC: 
strcpyCbuffer, “<ESC>"); 
break; 








case DCS: 
strcpyCbuffer, "<DCS>""); 
break; 





case CSI: 
strepy( buffer, "<CSI>"); 
break; 





case ST: 
strcpyCbuffer, "CST»"); 
break; 


default: 
flag = Сс >= 0х7Ғ 
ti Сс<” * аё c != Ап” && c f= "\г”)); 
if (flag) 
*buffer++ = '«'; 
if (Сс &= OxFF) >= 0x80) í 
c -* 0x80; 
*buffer++ = 7-”; 
} 
if (flag && с < * °) i 
*buffer++ = 774; 
*buffer** = c + 64; 
} 
else if (flag ti с == ‘\n’ fi c >= ' *) 
*buffer** = c; 
if (flag?) 
*buffer++ = 79”; 
*buffer = EOS; 
return Cbuffer); 
} 
return (buffer + strlenCbuffer)); 
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HELLO.C | me 
This is a very simple test program, to show that DECtalk is operating correctly. | 


/*)BUILD 
$CINCLUDED = { dectlk.h } 
$CRTLIB) = { dtlib,c:rstslb,c:clib } 
$(RXLIB) = 4 dtlib/lb,c:cx/lb,c:c/lb } 
*/ 


#include <stdio.h> 

#include "dectlk.h" 

“ifdef vms 

extern int errno; 
Fdefine IO ERROR errno 
#endif 

Fifdef unix 

define IO.ERROR 1 
endif 


ООЛО УУ 
ООЛУ 


Ан 


DECTALK *dt; 


mainCargc, argv) 
int argc; 
char *argv[]1; 
1 
char *dev; 


dev = “ttg7:"; pod 

if Cargc > 1) 
dev = argv[11; 

if (Cdt = dt_open(dev)) == NULL) + ШШ 
perrorCdev); | 
printfC"Can't open DECtalk\n"); 
exitCIO_ERROR); 


| 

à 
1 
i 
1 
| 
1 
2 
| 
| 
| 
| 
| 





} ne 

dt-debug = TRUE; /* Log text */ 

dt_trap(); /* CTRL-C trap enabled */ 

printf(C"calling init\n"); 

if C'dt-init(dt)D ЕН 
printf("Can’t initiate DECtalk\n"); 

else ( 
printf("Initialized\n"); 


dt.dcsCdt, P2.MODE, MODE_SQUARE, -1); Г.Т 
dt.talkCdt, "Hello world."); В 
dt.syncCdt); 

dt_dumpC"after sync", &dt->reply); 

dt_closeCdt); то 
printfC'"Success. Nn"); | 


ое, 














BASIC-PLUS 
PROGRAM EXAMPLE 




















This chapter provides the source listings of a simple DECtalk telephone 
answering program, written in BASIC-PLUS for RSTS/E. You can copy and use 
this program; however, the program is only a model, and cannot cover all 
possible DECtalk applications. | 





RSTS/E SYSTEMS 
On some RSTS/E systems, you may need system manager privileges to run 
this program. Please refer to the appropriate RSTS/E manuals for more 

















information. 
10 EXTEND | 
20 pe & | 
!* DECtalk function library and a sample application. & 
!* The function library generally duplicates the C & 
!* library, with some minor simplifications. & 
Et: & 
!* The sample program reads a string of numbers from & 
!* the keypad and speaks them as a number, and as a & 
!* string of digits. The *** key functions as a dollar & 
ғ !* sign, and the **' key functions as а decimal point. 8 
d !* The program also illustrates how an application & 
| !* might manage keypad timeouts. & 
5? & 
| !* Defaults & 
ET & 
DEF.kb$ - "KB2:" ! DECtalk device & 
\ DEF.log$ = "yes" ! Assume log? & 


191 
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E 


1000 ET 
!* Main program 
+ 
! Initialize DECtalk and start the DEMO 
! Channel 1 Console keyboard for parameters 
! Channel 2 Log file 


1010 open "kb:" for input as file 1X 
kb$ = FNprompt$C"Dectalk terminal", DEF.kb$) 
DT.log% = €(FNyesnoX("Enable logging", DEF.109$)) 
debug% = FNyesnoX(C"Enable debug printouts”, "уез") 
retries%, пса118% = 0% ! Clear counters 
error.count%’ = 0% ! No errors yet 
if Cdebug% or DT.logX) then ! Need a log file. 
logfile$ = FNprompt$C'"Debug log file", “kb:") 
\ open logfile$ for output as file 2X 


ОАО 


1100 while CFNinitXCkb$)) ! Initialize DECtalk 
\ 9% = FNlogX(C"Initialization'") 
\ retries% = retries% + 1% ! Count initializations 
\ while CFNanswerX) ! Answer the phone 
\ if CFNprocess%) then ! Do this call 
пса115% = пса115% + 1% ! Got а call 
\ retries% = 0% ! Clear retry 


ТТУ 


> Qe Qe Qo Qe Qo ge 


1200 goto 1800 if Cdebug% and error.countX > 0%) 
| \ if Cretries% > 2%) then ! Trouble? 
q% = FNlogX(C'"Too many retries") 

| \ goto 1800 ! Fatal. 


$e 5 $e 5 





1300 next ! For all calls 
\ next ! For all restarts & 


ge 


1800 q% = FNlogxz("finished after " + numi$Cncalls%)) & 
\ close 2% if ПТ. 109% & 


1900 goto 32767 ! А11 done & pne 
2000 def* FNprocess% 
' 
FNprocess Х 


speak it out. Return when phone is to Бе hung up. 
Return TRUEX if ok, FALSEX on error. 


| 
- 
! User process. Read a number from the keypad and 
! 
: 
! 


2010 FNprocess% = FALSEX ! Assume failure 
\ nkeys% = 0% ! Count button presses 
9% = FNlogX(C'answered') 
q% = FNspeakXC"[:np :га 1801 Welcome to DECtalk.") 
9% = FNspeakX(C"It is now " + time$C02Z) 
+ "on " + date$C0X) + ".") 

q% = FNspeakXC"Enter а number, the star key means") 
q% = FNspeakX(C"dollar sign, while the number-sign") 
9% = FNspeakzC"key means decimal point.") 
if (not FNphoneZ(C"20"5)) then ! turn the keypad on 

q% = FNlogX(C'"error enabling keypad") 

\ goto 2080 ! Error exit 


“Г: 


Г н | 


eM 


phis 
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2020 if (not FNptest%(R3.PH.OFFHOOK%)) then 
es = FNlogiC"enable keypad, state: " + num1$CR32)) 
\ goto 2080 ! Error exit 


Qe ge ge 





E 4 2030 while TRUEX 
Med \ timerž = 10% 
\ work$ = "" 
\ while TRUEX 
\ cX = FNkeyXCtimerZ) 
\ c$ = chr$Cc2D 
\ goto 2080 if c$ = “Н” 
\ goto 2080 if c$ = *'E* 
\ goto 2080 if c$ = 'x* 
\ goto 2050 if c$ = “Т” 
\ 
\ 
\ 
\ 
х 


For all numbers 

For first character 
Input buffer 

Get the number 

Read a character 
Get both flavors 
Hangup 

Error from RSTS/E 
Escape sequence error 
Timeout 

Fix funny 

buttons 

Stuff it 

Short prompt now 
Read a number loop 








c$ = '$* if c$ = ^*/ 
c$ = 7.” if c$ = ””” 
work$ = work$ + c$ 
timerX = 2% 

t 





tu su E s- sc = зав soe ою +з LI d ‘= ә. sw c 
Я» Qe Qe Qo Qo > Qo Qe Qo бе Qe Qe Qe Qo Фф 





2050 . goto 2060 if Cwork$ = "") ! Did we read anything? 
\ 9% = FNspeakZ(C"You entered " + work$ + "',") 
\ 9% = FNspeakXC"that is" + FNexpand$Cwork$) s EU 
\ next ! Read all numbers 


Qe > go 5 


2060 FNprocess% = TRUEX ! Normal completion & 
2080 q% = FNphonez ("21") | ! Turn off keypad & 
\ 9% = FNhangupx ! And hang up the phone & 
\ 9% = FNlogZ("process exit after " + numi$Cnkeys%)) & 


2090 fnend 


ge 





3000 du 
е FNexpands$C€Ctext $ >» 


1% 





| 
| 
| 
| 


!* Expand a number string into its component bytes. 
!* Note that this would be useful in a "bank by phone" 
!* application to speak a number, digit by digit, so 
!* the caller could copy it down. If the input is 
1# "12.3", the output will be " 1 2 point 3". Note 
!* the leading blank. 
1% 
def* FNexpand$Ctext$) 
X q$ = "UM 
\ тог 9% = 1X to lenCtext$) 
\ q1$ = midCtext$, 9%, 1%) 
\ qi$ = "point" if 91$ = '.' 
\ 91$ = "minus" if 91$ = '-' 
\ 91$ = "dollar sign" if 91$ = 7%7 
\ 9$ = 9$; + " " + 419 
\ next qX 
V FNexpand$ = q$ 





Output work 
For each byte 
Locate it 
Fix the 
special 
cases 
and stuff it 
Do ‘em all 
That’s it 








> Qv Qo Qo 5 ge Qo Qe % бе % Qo Qo Qo Qo Qe Qe бо % я» 


im эне COMER зе ON сә. SE cm tm 





3090 fnend 


ge 
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771 


10000 pt 
!* Basic-Plus Support functions for DECtalk 
!* Note that the code is not particularly fast and some 
!* of the error conditions that are handled by the C 
!* version of the Escape Sequence parser are ignored. 


Qo Qo $e Ho go 


* 


Note: the following channels are used: _ 
8 DECtalk input : | 
9 DECtalk output 
e Log file 


If DT.log% is TRUE, a log file is open 
on channel 2 


КО СУС 


* 


* Application programs call the following routines 


FNinitXCkb$) Initialize DECtalk on kb: 

ҒМапзмег% Finish last call, answer next 

FNhangup£Z Hangup the call саво 

FNkeyXCtimeoutX) Read a character with timeout | | 

Returns the character, or | 
Е Error Cfrom RSTS) 

| H Phone hung up 
T Timeout Г] 
| X Bad Escape sequence 2-4 
| FNtimeout%Csec%) Set specified timeout, 0 = none 


FNtestXCR2X, R3X) Test current reply, true if ok 
R3X is -1 to ignore it. 
FNtest%() checks character, 


intermediates, and finals. 











BE эне ton зә. tom эна SENE тз эш эш зи. тюз ш шт сш ЗЕБ ЗЕБ ін. тш эн эз S SER SAN оя тю м 2 S SUM зап зш SW тш тш >ш SHE тй SD В зә. зя. c ше 


FNptest%(R3%) Test phone reply CR2X checked) 

FNsendXCtext$) Send text to DECtalk. гт 
FNspeakXCtext$) Send text followed by «CR»«LF» 1771 
FNlogzCtext$) Log text message 

FNvisible$Cchar£z) Make character printable for 


logging and debugging msgs. 


FNmessagerz(text$, R2%, R3%) 


FNphonexZ(Ctext$) 


FNfunnyXCtext$) 
FNdumpZCtext$) 


Send DCS seq. test reply. 
text is "P2;P3...", 
return TRUE if ok. 
Note: FNmessageZz() ignores 
R3.PH.TIMEOUT replies. 
Send DCS sequence, test reply 
text is "P3;P4..." 
Е2% must be R2.PHONEX 
R3% not tested 
FNfunny% called if error 
returns as FNmessageZ() 
Print bad sequence on the log 
Dump the current reply 


rein 


К ООЛО 


lemen. 


о 
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"4 10010 ET 
bel !* The application program generally doesn't call the 
!* following routines. 
+ 
! FNsaveXCchar) Save type-ahead character, 
return TRUE if saved. 
FNdcsXCtext$) Send DECtalk DCS message. 
text is "P2;P3...", 
FNcsiXCtext$) Send DECtalk CSI message. 





text has parm, inter, final. 
FNfromdectalkXZCtimeX) Read key or escape sequence. 
FNgetseqXCtimeX) Read key or escape sequence. 
FNget£zCtimeoutX) Read one character. 
parity is stripped. 
<NUL> and «DEL» are ignored. 
Return 0% on timeout. 
Other errors are fatal. 
NOTE: do not use fnget%() to 
read from the telephone keypad. 
FNreadXCtimeoutX) Read a record from DECtalk 





* 


* Globals: 


* 





R1%, R2%, R3% current reply parameters 
set by FNgetsequencez() 
DT. timeout% TRUE if keypad timeouts are 
currently enabled. 
error.count%  Incremented on serious errors 





ESC% ESC character (parity bit cleared) 

CAN% CTRL-U character (cancel sequence) 

SUB% CTRL-Z character 

CSI% CSI character 

DCS% DCS character | 
STX ST character | 
ESC$ An escape to send chr$C155X) 

CRLF$ Carriage-return, Line-feed 

VT$ Vertical Tab CDECtalk flush) 

R2.PHONEZ R2% phone reply 


R3.PH.ONHOOKX R3% (phone hung up) 
R3.PH.OFFHOOKX  R3X Срһопе is alive) 
R3.PH.TIMEQUTX R3% (keypad timeout) 


DT.anything reserved for local buffers 
SEG.anything reserved for sequence parser 
qLanythingl general temporaries 


ін cm о-ө. гав tam tom tame tam tmp эне т гав зи. гав сш + сш тә SNB SUM тшт св сюз тш озы гав гав зав саз гав ta tam тшш tem tam tam SUB SB tae PAM іне c 














ша 7 
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10100 def* FNinit%C(kb$) = 
L 


Ем 1 Е ХХ Сс $ ) 


Return TRUEX if ok, FALSEX if error 


> $e Qe qe бо Qe Po 


! 
t Initialize the DECtalk device 
! 
i 


а 


10110 СА 
!* Open the terminal in "binary" mode. 
!* Then initialize all constants. 
+ 
open kb$ for input as file 8X, mode 32%+16%+4%+1% 
V open kb$ for input as file 9X, mode 32%++16%+4%+1% 


& 
& 
& 
& 
& 
& 
\ DT.incountX, DT.inendX = 0% ! Clear input buffer & 
\ SEQ.state% = 0% ! Clear input state & 
\ DIM DT.p%C3), SEQ. p%C3) ! 3 parameters & (77 
\ DIM qX€C256) ! For debugging & 
V TRUEX = (1% = 1%) ! TRUE & 
\ FALSEX = not TRUEX ! FALSE & 
\ ЕЗСХ = 27% ' Езсаре & eae 
\ ESC$ = chr$CESCX + 128%) ! Define escape char & 
\ УТ$ = chr$Cascii€’K’) - 64%) ! DECtalk flush char & 
V CRLF$ = chr$€13%) + chr$C10X) 1 «CR»«LF» string & 
\ CANX = ascii€’U’) - 64% ! САМсе1 CCTRL-U) & [71 
\ SUB% = ascii€’Z’) - 64% ! SUBstitute (CTRL-Z) & | |: 
\ CSI% = азс11(71”7) - 64% + 128% ! Define & nido 
\ DCSX = ascii(C'P') - 64% + 128% ! C1 control & 
\ STX = ascii€’\’) - 64% + 128% ! characters & Ga 
\ R2.PHONEX = 70% & |221 
\ R3.PH.ONHOOKX = 0% & | 
\ R3.PH.OFFHOOK% = 1X & 
\ R3.PH.TIMEOUTX = 2% & p. 
| 1 
10120 9% = FNsendX(chr$CasciiC'G*) - 64% + 128%)) ! CTRL-G & m 
\ q% = FNget%C2%) while (9% > 0%) ! Drain text & 
\ 9% = FNdcsxXC'8g2") ! No local-»host & p^ 
\ 9% = ГМов: ("с") ! "Who are you" & | 
\ 9% = FNfromdectalk%(S%) ! Read escape sequence % 
\ if (DT.char% <> CSIX ! Check & 
or DT.final$ <> 'c' ! for & т" 
or DT.private$ <> '?' ! DECtalk & | 
or R1X <> 19%) then ! reply & | 
q% = FNfunnyX(C"initialization") & 
\ FNinitX = FALSEX ! Return failure & т 
\ goto 10190 ! from FNinitX(C) & | 
10130 q% = FNsend%CESC$ + "'р") ! Soft Terminal Reset & 
\ 9% = FNdcsXC"80; 1") ! Set MODE SQUARE & т 
\ DT.timeoutX = 0% ! Мо timeouts now & | 
\ FNinitX = TRUEX ! Return TRUE & 
10190 fnend & == 


T 
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10200 def* FNanswerx & 
б & 
! FNanswer x & 
! & 
! Finish off any current call Changing up the phone) & 
! Then setup and answer the next call. & 
! Return TRUEX if the call was answered. & 
! Return FALSEX 1+ there's serious problems. & 
! & 
10210 FNanswerX = FALSEX ! Assume error & 
\ 9% = FNget%C€2%) while СХ > 02) ! Drain text & 
\ goto 10290 if (not FNphonezC"")) ! poll status & 
\ if CR3X = R3.PH.OFFHOOK%) then ! if alive, & 
goto 10290 if (not FNhangup) ! hangup phone & 
10220 if CR3% <> R3.PH.ONHOOK%) then ! still alive? & 
q% = FNfunnyXC"hangup/pol1") ! Urk. & 
\ goto 10290 ! exit this & 
10230 goto 10290 if Cnot FNphoneXC"10;1")2) ! answer 1 ring & 
\ if CR3X <> R3.PH.ONHOOK%) then ! ok? & 
q% = FNfunnyX(C"enable answer") ! Urk. & 
\ goto 10290 ! exit this & | 
10240 q% = FNfromdectalk%(0%) ! wait for ring & | 
\ if СХ <> 065%) then ! ok? & | 
q% = FNfunnyX(C"waiting for ring") ! oops. & | 
\ goto 10290 ! exit this & 
10250 if Cnot FNptestX(R3.PH.OFFHOOK22) then & 
q% = FNfunnyXC"expecting of fhook") & 
\ goto 10290 & | 
10260 DT.timeout% = 0% ! No timeouts now & 
\ DT.pending$ = "" ! Nothing pending now & 
\ FNanswerX = TRUEX ! ok. & 
10290 fnend & 
10300 def* FNtimeout%Cseconds%) & 
i & 
: FNtimeoutZzC€seconds 7 ) & 
1 & 
! Enable or disable keypad timeout. Note that & 
! FNtimeout%Cnon-zeroz) will examine the state of the & 
! type-ahead buffer before actually enabling timeouts & 
! & 
La 10310 if (secondsX > 0X) then è 
| seconds% = 0% if Clen€DT.pending$) > 02) & 
\ if CsecondsX > 0%) then & 
m 9% = FNsync% ! make sure all heard  & 
к. | Қ seconds% = 0% if ClenC€DT.pending$) > 0%) & 
! If the program requests that timeouts be turned & 
! on, perform some special checks that the user & 
! hasn’t already entered any text (which would be & 
! stored in one of the type-ahead buffers. 14 & 
! something is pending, turn timeouts off. This is 4 
! needed because RSTS allows a program to run even & 
! if all output has not been sent to the device. & 





E] 
H 
| 
3 
| 
| 
| 
И 
| 
| 
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10320 


10330 


10390 


10400 


10410 


10490 


10500 


10510 


10590 


10600 


10610 


goto 10390 if (secondsX = DT.timeout%) ! Don't resend 
\ print #27, “timeouts set "; seconds% if СРТ. 1091) 
\ 9% = ҒМрһопеХ("30;" + numi$Cseconds%)) 


DT.timeoutX = seconds% | ! save timeout state 
\ if Cnot FNptestXCR3.PH.OFFHOOKX2) then 
q% = FNfunnyZ(C'"timeout") 


fnend 

def* FNsyncX 

' 

FNsynct£z 


Synchronize with DECtalk. This function returns 
when all text sent to DECtalk has been spoken. 
Warning: if you have sent much text to DECtalk and 
the moon is in the wrong phase, there is a very 
slight chance that this code could get an operating 
system timeout, even though there are no errors. 


зв зә: зов зав SUB зә. гон SW тшш + 


9% = FNsendX(CVT$)- ! Flush speech 
\ 9% = FNdcsXC"11'") ! Send sync 
\ if Спої FNmessageX(C"22", 32, -1)) then 

q% = FNfunnyX(C'" sync") 


fnend 


def* FNhangup% 
! 
- FNhangup&% 
! 
! Hangup the telephone. Returns when the phone is 
! properly on-hook (TRUEX) or an error is detected. 
! 
FNhangupX = FALSE% ! Assume problems 
\ goto 10590 if Cnot FNphoneXC"11")) ! send hangup 
\ while (R3% = R3.PH.OFFHOOK%Z) ! wait until 
\ sleep 5X ! it’s hung up 
\ goto 10590 if Cnot FNphone%C("™")) 
\ next ! loop forever 
\ FNhangup% = TRUEX ! ОК пом. 
fnend 


def* FNphoneZ(Ctext$) 

' 

' РМрҺһотпе 4 Сіїехї $) 

' 

! Send a phone message, return the FNmessage% code. 

! You should then call FNtest% to see just what the 

! phone state actually is. 

: 

if Ctext$ <> "") ! If extra parameters 
then text$ = "60;" + text$ ! tack them on, else 
else text$ = "60" ! just do status report 





> > бе 


Qo 9e > 


ge 


ge > ge Qo 5 


£e Qo Qo Qo Qo Qo £e 


go go фе 


отн 


ы 7 





өнө, 


epitomises, 
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10620 FNphones = FNmessageX(text$, R2.PHONEX, -1%) & 


10690 fnend 


= 





10700 def* FNsaveXCcharX) 


FNsaveiCchar X) 





If the сһаг% came from a user data entry, save it in 
the DT.pending$ buffer and return TRUEX, otherwise, 
return FALSEX. Note that FNsavexX() watches for 
asynchronous keypad timeouts. 


Note that unreasonable amounts of type-ahead may 
cause the program to overflow memory. 


эше ta SA S зш E CA SB CU он. зап 
Qe Qo Qo Qe 4 > Qo Qe Qe Qe Qo go 


10710 FNsave% = TRUEX 
\ if FNptestX(R3.PH.TIMEOUT%) then ! Timeout? 
goto 10790 if (DT.timeoutX = 0%) ! Disabled? 
\ DT.timeoutX = 0% ! None now 
\ goto 10790 if ClenCDT.pending$) > 0%) 
\ char% = asciiC'T') ! Save “Т” 


ge > Qo Qe Qo go 


ge 


10720 if Сіпзіг(0%, "0123456789 *#АВСрт", chr$CcharX)) = 0%) 
then FNsave% = FALSE% 
else DT.pending$ = DT.pending$ + chr$(CcharX) 


ge %- 


10790 fnend 


ge 


10800 def* FNkeyXCtimeoutX) 
i 
FNkeytC timeout 7 7 


Read a keypad character Cin there is one in the 
type-ahead buffer, or read a character or escape 
sequence from DECtalk. Тһе timeout% parameter is 
non-zero to enable timeouts. 





Note that the timeout parameter, if non-zero, will be 
extended to compensate for RSTS/E output buffering. 


FNkey% ignores user timeout if timeout was disabled. 


a ш зш стиш COMME зә. зә о. шш +в тш гав + 


10810 9% = FNtimeoutXCtimeoutz) ! Set/clear timeouts 
\ if ClenCDT.pending$) > 0%) then 
FNkeyX = ascii(DT.pending$) 
\ DT.pending$ = rightCDT.pending$, 2%) 
\ goto 10890 


$e Qo ge ge ge 


10820 timeout% = Ctimeout% * 4%) + 60X if timeout% » 0% 
\ 9% = FNfromdectalkXCtimeoutX) 
\ 4% = asciiC'T*) if FNptest%CR3.PH.TIMEQUTZ) 
\ DT.timeout% = 0% if (9% = ascii€’T’)) 
\ 9% = asciiC'H') if FNptestXCR3.PH. ONHOOKX) 
\ 9% = asciiC'E*) if Cq% <= 0%) ! D.S. error 
\ FNkeyX = qX 


10890 fnend 


ge 








200  BASIC-PLUS PROGRAM EXAMPLE 


12000 


12010 


12020 


12090 


12100 


12110 


12120 


12180 


12190 


12200 


def* FNmessageXCtext$, 12%, 137) 


С sb В сок сав ган ов ою. SS оөз 


ЕМтеззаце% Сіехі%, t 2 X t 3 %) 


Send a DECtalk DCS sequence 
for a reply. Маке sure the 
and 13% parameters. Return 


to DECtalk and wait 
reply matches the 127 
TRUEX if ok, else FALSE%. 


А keypad timeout (езсаре sequence) may be read when 
we are expecting some other reply. In this case, 
the timeout is ignored, the timeout status flag is 
set FALSE and we read another sequence. 


9% = FNdcsz(Ctext$) 
\ FNmessage% = TRUEX 


q% = FNfromdectalk%z(60%) 
\ goto 12020 if СХ = STX) 
\ goto 12020 if FNsaveXCqX) 


\ if not CFNtestXCt2x, 


13520 then 


Send the sequence 
Assume success 


get something 
ignore string term. 
save type-ahead 

! Check seq. 


9% = FNfunny%C"message test error") 


\ FNmessage% = FALSEX 


fnend 


def* FNfromdectalk%Ctimeout%) 


Е Nf romd ec ta і к Х Ctimeoutz*2D 


Read an escape sequence or keypad character. Dump 
junk between DCS final and string terminator. 


if CSEG.stateX <> 0% and SEG.stateX <> STX) then 


gosub 12200 
\ goto 12180 


SEQ.stateX = 07 


\ gosub 12200 


! 
\ q% = FNgetsequenceXCtimeoutz) ! 
! 
! 


\ 9% = FNtoss% if (qX = 065%) 


FNfromdectalk% = DT.char% 


fnend 


L 
ж 
i 
= 
i 
- 
Ц 
- 
L 
: 
Ц 
: 


Grab the sequence 
And return char value 


Nothing pending now 
Get something 

Make it current 
Toss junk until ST 


Return character 


Subroutine called from FNfromdectalk% to copy the 
last escape sequence read into the “current sequence" 
buffer. This is needed to skip over junk between 

the DCS final and the string terminator. 


> Qe Q9 BW Qo Q9 ge % 9: Qe фе %» Qe we > Qe 9 Q9 Qo Qe Qe Qe Qe % Qe 6» Qe 6» %» 


ge Qe £g 


> 


> > Qe Qe % gw 





а | 


(| 





[шшш 


Г ашшы. | 
21 | 


и 
| | 


























12210 


12290 


12300 


12310 


12320 


12390 


13000 


DT.char% = SEQ.char% 


! Sequence type & 
\ DT.final$ = SEG.final$ ! Sequence terminator & 
\ DT.private$ = SEG.private$ ! private characters & 
\ DT.inter$ = SEG.inter$ ! Intermediates & 
\ DT.parm% = SEQ.parm% ! Parameter count & 
\ R1X, DT.p%C1%) = SEG.pXC12) ! Param's & 
X R2%, DT.pXC2X) = SEG.pXC22) ! 8 
\ R3%, DT.p%€3%) = SEG.pXC3X) : & 
! \ print #27, dt.parm%; "parms: “; R1i%; R2%; R3X & 
return 
def* FNtoss% & 
! & 
! FNtos 5 x & 
s & 
! Called after reading a DCS, this function reads & 
! text to the terminating string terminator. & 
! & 
SEG.stateX = 07 & 
q% = FNgetsequenceX(C52) & 
\ if (q% <= 0% or (qX >= 128% and q% <= 159%)) & 
then FNtoss% = 9% & 
else goto 12320 & 
fnend & 


def* FNgetsequenceXCtimeoutZ) 


! 
w 
Ц 
. 
Ц 
- 
1 
- 
! 
* 
Ц 
- 
1 
- 
! 
- 
! 
- 
1 
- 
Ц 
ж 
Ц 
* 
i 
м 
' : 
- 
i 
- 
Ц 
- 
Ц 
ж 
i 
* 
i 
* 
Ц 
= 
1 
i 
1 
* 
i 
- 
Ц 
- 
i 
Li 
i 
М 
1 
т 


FNge 


Read the next 


Escape Sequence. 


Initialize by setting SEG.stateX to zero. Returns: 
| SEG.stateX 


Note the following goto’s: 


goto 13010 to 
goto 13020 to 


goto 13120 to 


| goto 13130 to 
| goto 13140 to 


The following 


‚ SEG. char 

. SEG. final$ 

‚ SEG. stateZ 

‚ SEG.parm* 

|. SEG.pXI] 

| SEG. inter$ 

| SEG. private$ 
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tsequenceZCtimeout %) 





character or the next ANSI standard 


sequence final character 


read the next character in a sequence. 
continue processing (needed when escape 
followed by a second character turns 
into a C1 control character). 

exit an ESC sequence 

exit after reading a DCS/CSI sequence. 
exit a СО control within a sequence. 


is set by this module: 

the character or sequence type 

the sequence final for CSI/DCS/ESC 
zero when sequence ends. 

number of parameters 

each parameter as read 

intermediates 

private introducer, ”Х” if error seen 


6 6» Qe Qe Qe Qe Ge Qe Qe Qe Qe Qo % Qo Qe Qe Qe 5 Qe Qe Qo Qo Qo Qo Qo Qo Qo Qe 
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13010 DT.c% = fnget%Ctimeout%) ! Get a character & qua 
13020 if CDT.cX = ESC% ! If the character & 
or DT.cX = 651% ! introduces a new & 
or DT.cX = DCSX) then ! sequence, initialize & т 
SEQ.state% = DT.c% ! all work areas. & 
! \ print #2%, “seq start: "; fnvisible$(dt.cX) & 
\ SEG.inter$ = "" & 
\ SEQG.private$ = "" & == 
\ SEG.parmz = 0% & 
\ SEQ.p%C1%), SEG.pXC2X), SEQ.p%C3%) = 0% & 
\ goto 13010 ! go read another byte & 
13030 goto 13140 if CSEQ.state% = 0X) ! done if no sequence & | 
! & 
! Continue processing the current sequence & 
! & oy 
\ if CCDT.c% >= 128% and DT.cX < 160%) ! C1 control & 
or (DT.c% = САМА? ! or CTRL-U & 
ог CDT.cX = SUB%)) then ! or CTRL-2 & 
SEQ.statex = 0% ! force sequence exit & по 
! \ print 42%, "cO control: "; fnvisible$(dt.c%) & 
\ goto 13140 ! and return CO control & 
13040 goto 13140 if (DT.c% < 32%) ! Exit if CO control & Гг“ 
! & 
! Process C1 introducers, intermediates, parameters, & 
! sequence terminators and other strange stuff & 
- | & 
\ if CDT.cX < 48%) then ! Intermediate & 
SEG.inter$ = SEG.inter$ + chr$C(DT.cX) & 
! \ print #2%, "intermediate: "; fnvisible$(dt.cX) & 
\ goto 13010 ! Go get another & Ы 
13050 if CSEG.stateX = ESC%) then ! «ESC» -» C1 control? & | 
Ч% = DT.cX and 63X ! Mask out lower 6 bits & 
\ goto 13130 if CSEG.inter$ <> "" or qX% >= 32%) & pre 
\ DT.c% = q% + 128% ! Make it a C1 control & | 
! \ print #27, "cO -> c1: "; fnvisible$Cdt.c%) & | 
\ goto 13020 ! Process C1 control & 
13060 goto 13120 if (DT.c% >= 64%) ! Sequence terminator & au 
! \ print #27, "not terminator "; fnvisible$Cdt.cX) & 
\ goto 13080 if (DT.c% < 60%) ! private introducer? & 
! \ print #27, “private introducer "; fnvisible$Cdt.cX) & pee 
\ if CSEQ.parm% > 07) ! maybe, but illegal & | 
then SEG.private$ = "x" ! after first param. & | 
else SEG.private$ = chr$CDT.cX) & 
\ SEG.parmX = 1% ! Mark "param" & т-- 
13070 goto 13010 ! Read another char. & 


























13080 


13090 


13100 


13110 


13120 


13130 


13140 


13180 


13190 


14100 
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E & 
! We know the character із in the range '0*'..*'9' or & 
! ':' (separator) or ':' Cillegal separator) & 
Fo k 
SEG.parmX = 1X if C(SEG.parmz = 0%) & 
! \ print #27, "param or sep: "; fnvisible$Cdt.cX) & 
\ if CSEG.inter$ <> "") then ! No param's after & 
SEG.inter$ = "" ! intermediates. & 

\ SEG.private$ = "x" ! Mark it invalid. & 

! \ print #2%, "parm or separator after inter" & 

if (DT.c% <= ascii€’9’)) then ! Parameter digit & 
SEG.pXCSEG.parmX) = ! Make it a number & 
CSEG.pXCSEG.parmxX) * 10%) + CDT.c% - asciiC'0*0) & 

! \ print #2%, "digit, param :="; seq.pX(CSEG.parmX) & 

\ goto 13010 ! Go read another byte & 

if (DT.c% = ascii€’;’)) then ! parameter separator & 
SEQ.parm% = SEG.parmX + 1% & 

\ goto 13010 ! and read another byte & 
SEG.private$ - "x" t 7:7 isn't a separator & 
! \ print #27, "Бад separator "; fnvisible$(dt. cx) & 
\ goto 13010 ! read another byte & 
- 8 
! Character із а sequence terminator. If по parameters & 
! were read, return a single zero-valued parameter. & 
' & 
SEG.parmX = 1X if (5Е@.рагт% = 0X) & 
! \ print #27, "terminator: "; fnvisible$(Cdt.cZ) & 
! & 
! Jump here at the end of the sequence. & 
: & 
SEG.final$ = chr$CDT.c%) ! Set the final & 
\ ОТ.с% = SEG.stateX ! Get return value & 
\ SEG.stateX = 0% ! Not in a sequence & 
SEG.charX = DT.c% ! Character code & 
FNgetsequence% = SEQ.char% ! Return value & 
fnend ! That's all, folks & 


def* FNsendZ(text$) 
FNsendzCtext $) 
Send a string of text to DECtalk. Note, the text 


length must be less than the DECtalk terminal buffer 
size. 


ане эш. to эшш таш іне сш 
Qe Qe Qe Qo Qe Qo Qo Ke 





| 
| 
| 
| 
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14110 field 49%, len(Ctext$) аз q$ 

\ lset q$ = text$ 

\ put #97, record 40967, count lenCtext$) 

\ if CdebugX and DT.logX) then 
print #2%, using 'sent: ### "',. ]len(Ctext$); 
\ change text$ to q% 
\ print 42%, FNvisible$CqX(qX2)2; 

for 9% = 1X to q%C€0%) 

\ print #27, 7"” 


РЯ 


Qo Qe Qo Qo Qe Qo $e бо бе 


14190 fnend 


ge 


14200 def* FNcsiXCtext$) = FNsendXCESC$ + "[" + text$) 
! 


FNcsiXC texts$2) 


% Qe % Qe Qe ge 


! 
! 
! Send а Control Sequence to DECtalk. 
! 





14300 def* FNdcsXCtext$) = 
FNsendXCESC$ + "Р0;" + text$ + "z" + ESC$ + "\") 


FNdcszZCtexts$2) 
Send a DECtalk Device Control Sequence. 


Note that the DECtalk P1 parameter, final, and 
string terminator are automatically included. 


$e 9 Qe Qe 5 Qo Qe Фе Qe 


| 14400 def* FNspeakXCtext$) = FNsendXCtext$ + CRLF$) 
' 





F Nl1inexX Ctex t$) 


Send a line of text to DECtalk, followed by «CR»«LF» 


> Qo % Qo % ge 


15000 def* FNget%Ctimeout%) 


petentis 
| 


Ғ М getzCtimeoutzxo 


Read the next character from DECtalk. 

timeout% = 0% means none 

timeout% > 0% wait timeoutX seconds 
timeout% = -1% return immediately if none 
return 0X on timeout, fatal exit on other errors 
The character is forced into the range 000 to 127 
and «NUL» (0002 and «DEL» (127) are ignored 


як. эк. som з сив DUEB сөз кш тшш зав cum 
> Qe Qo Qo Qe Qe Qe Qo Qo Qo Qo Ke 


они 


15010 while C(DT.incountX >= DT.inendX) ! None saved? 
\ goto 15080 if (пої FNread%(timeout%)) & 


ge 


15020 next & 
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15030 field 78%, DT.incountX as q$, 1% as q$ ! get char & 
\ DT.incountX = DT.incountX + 1% ! step index & 

\ 9% = ascii(q$) and 127% ! drop parity & 

\ goto 15010 if Cq% = 0% or q% = 127%) ! ignore nulls & 

4 X FNget% = 9% ! return char & 
| \ goto 15090 ! exit & 
15080 — FNgetX = 0% ! got timeout & 
15090 fnend & 
15100 def* FNreadXCtimeoutZX) & 
! & 

| ! FNreadX&Ctimeoutlt2) & 
Ж ! & 
! Read a record from DECtalk. & 

! timeout = 0% means none & 

! timeout% > 0% wait timeoutX seconds & 

! timeout% = -1X return immediately if none & 

! return FALSEX on timeout, fatal exit on other errors & 

! return TRUEX on success. & 

! & 

15110 goto 15120 if DT.incount% < DT.inendX ! Still stuff & 
\ on error goto 15150 ! grab error & 

\ q$ = sysCchr$C3X3) + chr$C920) ! no echo & 

+ sysCchr$C4X) + сһг%9(9522 ! odt mode & 

\ wait timeoutX if timeoutX » 0% ! timeout & 

\ get #8% if timeout% >= 0% ! read buffer & 

\ get ^82, record 8192X if timeoutX « 07 & 

\ DT.inendX = recount ! got it & 

\ wait 0% ! no timeout & 

V DT.incountX = 0% ! clear index & 

\ оп error goto 19000 ! common exit & 

\ if CdebugX and DT.1ogX) then & 

print #2%, using "read: ### '"", DT.inendX; & 

\ field #8%, DT.inendX аз q$ & 

\ change 4% to 9% & 

\ print #2%, FNvisible$C(qXCqX2); & 

for qX% = 1% to qXC0X) & 

\ print #2%, "*" & 

15120 FNreadX = TRUEX & 
\ goto 15190 & 

15150 resume 15180 & 
if ((егг = 15% and timeoutX > 0%) & 

or (err = 13% and timeout% < 0%)) & 

\ goto 19000 & 

15180 FNreadX = FALSE% & 





15190 fnend & 
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16000 def* FNtestXCt2X, 13%) = 
€DT.charX = DCS%) ! Make 
and (DT.final$ = 72’) ! sure 
and ClenCDT.inter$) = 0%) it's 
and ClenCDT.private$) = 0%) ! from 
апа CR1X = 0%) i DECtalk 
and Ct2X = R2%) ! Check R2% 
and СЇЗХ = R3% or t3% = -1%) ! maybe check R3% 


КОТ | 


FNtest%zrct2%, 1з) 


Return TRUEX if the current reply is a properly- 
formed DECtalk reply sequence whose R2X and R3X 
parameters match 72% and T3%. T3% is ignored if 
it is -1%. 


222777727 


$m зыш CM зға сш зә ств cum 


16100 def* FNptestXCt31) = ! Test phone reply | 
FNtestX(R2.PHONEX, t3) 


FNptestzct3%) 


нии, 


Return TRUEX if the current reply R2X parameter 
is R2.PHONE% and the T3X matches R3% 


$e Яс Qo бо Qo Qo Qo Qe 


17000 - def* FNfunnyXCtext$) 
[ 


РМР: ЛУ €t4xti$5) 





Log an error message and dump the current reply. 


$e Qo Qe бе Qo Qe 


. 
- 
1 
" 
. 
» 


17010 error.count%’ = error.countX + 1% 
\ if СРТ. 1094) then 
print #2% if Cccpos€2%) <> 0%) 
\ print #2%, "Illegal reply at "; text$; "." 
\ FNfunny% = FNdumpXC''") 


Qe 4 Qo бо 5 


17090 fnend 


ge 


17100 def* FNdumpXCtext$) 
' 
FNdumptXtCtexts$20 


Dump the current reply. 


Qe Qo Qe Qe Qo Qe 


. 
і 
: 
Ц 
- 
L 
- 
i 
. 


P 
































17110 


17190 


17200 


17210 


17290 


17300 


17310 
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if СОТ. 109%» then & 
print #2%, "Last sequence read"; & 

\ print #27, " at "; text$; if Ctext$ <> "") & 

V print #2%, ": 4; & 

N if (DT.char% = 0%) & 
then print #2%, "«TIMEOQUT»" & 
else print #2%, FNvisible$C(DT.charX); | & 

\ print #27, DT.private$; DT.inter$; & 

\ for q% = 1% to DT.parmX & 

\ print #2%, num1$CDT.pXCqX2)2; & 

if (DT.p%€q%) <> 0%) k 

V print #2%, ";"; & 

if <(аХ + 1%) < DT.parm’)d & 

\ next qX | _& 

V print #2%, DT.final$; & 

\ print #2%, "«ST»"; if (DT.char% = DCS%) & 

V print #27 & 

fnend & 
def* FNvisible$CcX) & 
! & 
! FNvisiblesC€ci) & 
! & 
! Return "datascope" version of c% & 
' & 
if Cc% = ESC%) then FNvisible$ = "«ESCo" & 
else if (сх = DCS%) then FNvisible$ = "<DCS>" & 
else if Сс = С517) then FNvisible$ = "<CSI>" & 
else if СсХ = STX) then FNvisible$ = "«STo" . & 
else if (cX = 10%) then FNvisible$ = CRLF$ & 
else if CcX = 11%) then FNvisible$ = "<VT>" & 
else if (c% = 13%) then FNvisible$ = "" & 
else q.visX = (cX >" 127% or ch < 32%) & 
X q $ ш 5506 & 

\ q$ = "e^" if СсХ >= 128%) & 

\ q$ = "<" if (cX < 32%) & 

\ сх = сх and 127% & 

\ 9$ = q$ + "^" + chr$CcX + 64%) if (с% < 322) & 

\ q$ = q$ + chr$€c%) if Cok >= 32%) & 

\ q$ = q$ + "»" if 4.7157 & 

V FNvisible$ = q$ & 
fnend & 
def* FNlogZ(Ctext$) & 
! & 
! FNl1logXCtext$2) & 
| & 
! Log а text message & 
! & 
if СОТ. 109%) then & 


print #2%, Фа{фе$ (0%); " "; ізпе%(0Х2; "и; text$ & 





| 
| 
| 
| 
| 
| 
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17390 fnend & т" 
17400 def* ҒМуезпоХ(рғотрі%, default$) & 
! & 
FNyesnoX(Cprompt$,defaults$2) & | 
' & | 
! Prompt and get а yes/no answer & 
! & 
17410 9% = 0% & 
\ until (9% = 1% ог 9% = 5%) & 
\ q$ = FNprompt$Cprompt$ + "(Yes/No)", default$) & 
\ 9% = instr€1%, "YES NO", cvt$$Cq$, -1%)) & рен) 
\ next & | 
V fnyesno% = (4% = 1%) & | 
17490 fnend & 271 
17500 def* FNprompt$Cprompt$, default$) & | 
! & 
П FNpromptXCprompt$,defaultsS$204.8. m 
! 8 | 
| ! Prompt and get а response & 
! & 
| 17510 print 41%, prompt$; " <"; default$; ">? "; & | | 
| \ input line #17, 49 & i 
| \ FNprompt$, q$ = cvt$$(q$, 397%) 8 
| \ FNprompt$ = cvt$$Cdefault$, 397%) if len(q$) = 0% & E 
| 17590 fnend & 
] 
| 
| 19000 ! 8 г 
| ! Fatal Error Trap & pod 
| & | 
19010 error’ = err ! save error number & г" 
\ error.linex = erl ! and error line & | 
\ resume 19100 ! and take fatal exit & | 
19100 print ! force new line & т 
\ print ‘Fatal Error "”; ! print error message & 
evt$$CrightCsys€chr$(6%) + chr$C9X) & 
+ chr$Cerror%)), 3%), 4%); & 
Өн at line’; error.lineX ! and line number & Tm 
19180 stop & 
19190 goto 32767 т 
32767 епа | 




















DECtalk ESCAPE SEQUENCES 


This appendix summarizes the escape sequences (and their parameters) 
described in this manual. The following tables list escape sequence mnemon- 
ics and their ASCII representations. 


You can verify each ASCII character by checking the decimal value that 
appears below the character. 
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PHONEMIC ALPHABET 


This appendix summarizes the phonemic symbols that DECtalk uses. DECtalk 
recognizes all 17 vowel phonemes and 24 consonant phonemes in the English 
language (Table B-1). 


DECtalk uses two-character symbols for each English phoneme. DECtalk also 
recognizes a one-character system of representing phonemes. Use of the one- 
character system is discouraged, as it is not in wide use and may not be 
supported on future releases of DECtalk. However, DECtalk can be set to the 
one-character system. Refer to Chapter 4 of the DECtalk DTCO1 Owner's 
Manual. 


Table B-2 lists emphasis characters, for adding stress and suggesting proper 
phrasing (syntax). 
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ORDERING INFORMATION 


You can obtain ordering information by telephone from 8:30 a.m. to 6:00 p.m. 


Eastern Standard Time (EST) or by mail. 

By phone 

Continental U.S.A. and Puerto Rico 
1-800-258-1710 

New Hampshire, Alaska, Hawaii 
1-603-884-6660 
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In the U.S.A. and Puerto Rico 
Digital Equipment Corporation 
PO Box CS2008 
Nashua, New Hampshire 03061 

Outside the U.S.A. and Puerto Rico 
Digital Equipment Corporation 


Attn: Accessories and Supplies Business Manager - 
с/о Local Subsidiary or Digital-Approved Distributor 
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how indexing affects, 39 
in user dictionary, 43 
ALGOL, 70 
Allophones, 220 
Alternate character sets, 
selecting, 27 
ANSI standards, 22 
Answering the phone, 48 
Application programs 
BASIC-PLUS, 191 
C, 69 
DECtalk-specific codes, 73 
dialog, 15 
error codes, 72 
flags, 72 
guidelines, 15 
numeric encoding, 16 
SEQUENCE data structure 
inC, 78 


two-character encoding, 17 
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ASCII code tables 

7-bit, 23 

8-bit, 25 

ASCII character sets, 
selecting, 20 

ASCII escape sequences, 6 

ASCIL G, 27 

Audio delay, 38 

Autoanswering telephone, 47 


Backspace (BS) character, 11 
BASIC-PLUS program, 191 
Baud rate with XON/XOFF, 13 
Buffer 

overflow, 13 

size, 13 

reset with DT STOP, 38 
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C 


CO control characters, 26, 27 

C1 control characters, 26, 27, 32 
selecting, 21 

Clanguage, 70 


C modules 
DECTLK.H, 83 
DEMO.C, 98 


DTANSW.C, 100 
DTCLOS.C, 101 
DTCMD.C, 103 
ОТОСНА.С, 105 
DTDCS.C, 106 
DTDIAL.C, 108 
DTDRAI.C, 111 
DTDUMP.C, 113 
DTEOL.C, 115 
DTGESC.C, 116 
DTGET.C, 123 
DTHANG.C, 125 
DTINIT.C, 126 
DTINKE.C, 128 
DTIOGE.C, 130 
DTIOPU.C, 140 
DTISKE.C, 143 
DTISTI.C, 144 
DTISVAC, 145 
DTKEYP.C, 146 
DTMSGC, 147 
DTOFFH.C, 149 
ОТОМНО.С, 150 
DTOPEN.C, 151 
DTPEEKC, 157 
DTPESC.C, 163 
DTPHON.C, 167 
DTPTES.C, 168 
DTPUT.C, 169 
DTREAD.C, 170 
DTRESEC, 172 
DTSAVEC, 173 


DTSPLICE.C, 175 
DTST.C, 177 
DTSYNC.C, 178 
DTTALKC, 179 
DTTEST.C, 180 
ОТИМЕ.С, 181 
ОТТОМЕ.С, 183 
DTTRAP.C, 185 


DTVISI.C, 188 
HELLO.C, 190 
C program 


data structure, 78 
DECtalk commands, 73 
DECtalk replies, 75 
DECtalk-specific 
parameters, 73 
error codes, 72 
flags, 72 
logging command 
parameters, 77 
module list, 80-82 (see also C 
modules) 
self-test parameters, 76 
structure, 70 
telephone control 
parameters, 74 
variables, 72 


Characters 


backspace, 9 

control, 8, 24 (see also CO and 
C1) 

graphic, 24 

hierarchy of, 9 


Character sets, 27 


7-bit ASCII, 23-24 

8-bit, 25-26 

DEC multinational, 30-32 

DEC supplemental graphics, 32 
mapping, 20 

selecting alternate, 27 
selecting ASCII, 20 

speaking, 20 
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Clause boundary, 10, 36 
DT SYNCas, 38 
COBOL, 69,70 

Code table 

f-bit, 23 

8-bit, 25 

Coding standards, 22 
Command 

enter phonemic text, 37 
index query, 41 

index reply, 40 

index text, 40 

load dictionary, 43 

local log, 58 

local terminal, 62 

speak 39 

stop speaking, 38 
synchronize, 38 
telephone management, 46 
Commands 

arguments or parameters, 11 
DECtalk 73 

ending sequences, 5 
invalid commands, 5 
telephone, 45 

voice, 35 

Communication 
DECtalk-computer, 10 
DECtalk guidelines, 2 
setting up DECtalk 12 
telephone, 45 

Computer. See Host computer 
Control character logging, 9 
Control characters, 8, 24, 26 
Controlling DECtalk 2 
Controlling DECtalk speech, 35 
CR (carriage return), 8 
CTRL-K, 9 

CTRL-Q, 13 

CTRL-S, 13 
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DA primary, 51 
Data loss, 13 
Data paths, 10 

logging and debugging, 60 
Data synchronization, 13, 38 
Debugging, 58-61 
DECAC1, 21 
DECID, 52 
DECNVR (nonvolatile memory 

reset, 58 
DECSTR (soft reset), 39, 57 
DECtalk speech 

sentences and paragraphs, 36 
DECTC1, 21 
DECTST, 54 
DEL (delete), 8 
Delete user dictionary, 53, 56 
Device attribute request, 51 
Device attributes, 51 
Device self-test, 54 
Device status failure codes, 56 
Device status report, 55,57 
brief report, 55 

extended report, 55 
Device testing, 52 
Dialing phone numbers, 47, 49 
Dictionary, user, 2,43 

status report, 44 

deleting, 53, 56 
Discarding host data, 13 
DSR (device status report), 55 
DT DICT, 43 
DT INDEX, 40,41 
DT INDEX QUERY, 38, 40, 41 
DT INDEX REPLY, 40,41 
DT LOG, 58 

parameters, 59 
DT МАЭК, 64 

parameters, 65 
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DT MODE, 32 
parameters, 33 

DT PHONE, 39, 45, 46, 48 
parameters, 47 

DT РНОТЕХТ, 37 

DT STOP, 38,39 

DT SYNC, 38,39,41 

DT TERMINAL, 62 
parameters, 63 


E 


Empty parameters, 7 

Enable or disable speaking, 39 

English, 2,20 

rules for text, 36 

Enter phonemic text command, 37 

Error flags, 55, 56 

ESC (escape) 8 

Escape sequence. See also 
Command 

ASCII characters, 6 
decimal value, 7 
description, 2, 4-5 

format, 6 

mnemonic, 6 

parameters, 7 | 
summary list, 210-213 
terminator, 5 


F 


Factory settings, 53, 58 
Firmware version level, 9 
FF (form feed) 8 

Flush pending text, 53 
Foreign letters, 20 


G 


GO-G3 character sets, 27-29 

GL (graphics left), 27, 32 

GR (graphics right), 27,32 

Graphic characters, 24 
processing, 33 


H 
Hang up telephone, 47,48,53,57 


Hardware tests, 52 
Host computer, 2,11, 13 


commands (see the specific topic) 


setup, 12 

Host-DECtalk interaction, 10, 42 
Host line format, 53 

Host line speed, 53 

Host port tests, 54 
HOSTSYNC, 13 

HT (horizontal tab), 8 

Hyphen, pronouncing а, 33 


Identify terminal command, 52 
Index 
defining an index, 40 
last index seen query, 41 
replying when an index is 
spoken, 40 
Index query command, 41 
Index reply command, 40 
Index text command, 40 
Indexing text, 39 
Input buffer, 13 
ISO standards, 22 
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K 


Keypad characters 

sending, 46 

parameters, 47 

Keypad mask command, 64 
parameters, 65 


L 


LF (line feed), 8 

Line editing on terminal, 63 
Load dictionary command, 43 
Local line format, 53 

Local line speed, 53 

Local log command, 58 
parameters, 59 

Local log flags, 53 

Local port tests, 54 

Local terminal command, 62 
parameters, 63 

Local terminal flags, 53 
LOG DEBUG, 59 

LOG ERROR, 61 

LOG INHOST, 61 

LOG  OUTHOST, 61 

LOG PHONEME, 61 

(ОСО RAWHOST, 61 

LOG TEXT, 61 

LOG TRACE, 61 

Long sentences, 36 
Loopback tests, 54 

LS (locking shift) commands, 29 


Maintenance commands, 51-67 
Mapping 7-bit and 8-bit 

sets, 20-21 
Marking text, 39 
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Memory, 58 

Mnemonics, 6 

MODE ASKY, 33 

MODE MINUS, 33 

Modes 

7-bit or 8-bit, 21 

off-line, 4 

on-line, 4 

operating, 4 

setup, 4 

MODE SQUARE, 2, 12, 33, 37 
Multinational character set, 27 
as default, 32 


N 


Names and definitions 
variable, 72 

NUL, 8 

NVR (nonvolatile memory), 58 


O 


Operating features, 53 
Operating modes, 4 
Owners manual, 3 


p 


Parameters 
DECtalk-specific, 73 
logging command, 77 
self-test, 76 
telephone control, 74 
values, 7 

Parameters in escape 

sequences, 6 

Pascal, 69 

РН ANSWER, 46,48 
two status replies to, 48 
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РН HANGUP, 48 

РН KEYPAD, 48 

РН NOKEYPAD, 48 

Phonemes, 37 

Phonemic alphabet, 219-221 

Phonemic commands, 35, 37 

Phonemic spelling, 35 

in abbreviations, 43 
recognizing errors in, 43 

Phonemic text 

interpreting, 33 
speaking, 37 

using comments in, 37 

Phone status, 47 

РН PULSE DIAL, 49 

PH STATUS, 46,47 

РН TIMEOUT, 48 

РН ТОМЕ ПІЛІ, 47,49 

Power-up status, 51 

Product identification, 51 

Program language and 
structure, 70 

Programming 
considerations, 13 
escape sequence format, 6 
escape sequences, 4 

Programs 

application, 80 

Pronunciation 

changing, 33 

of foreign letters, 14 
using phonemics, 37 


Public telephone network, 12 


automatic hangups, 49 
PUP (power up), 51 


R 


R3 PH OFFHOOK, 47 

R3 PH ONHOON, 47,48,49 
R3 PH TIMEOUT, 46,47,48 
Received characters, 2 


7-bit and 8-bit environment, 32 


Replies 

DECtalk 71 

Reset, 53-54 

RIS (reset to initial state), 39, 52, 
56 

Rules 

for DECtalk sequences, 4 

for text, 36 


S 


S7C1T control sequence, 21 
S8C1T, control sequence, 21 
Selecting active character 
sets, 29 
Self-test, 52,54 
Sequences, 5 
ending, 5 
Setup 
escape sequences, 19-33 
commands, 4, 12 
Setup mode, 4 
speaking in, 63 
using BREAK key to enter, 4 
Seven-bit mode, 20 
Shift commands, 29 
SI (shift in, 8 
SO (shift out), 8 
Soft terminal reset, 57 
Source programs, ordering, 69 
SP (space), 8 
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Speak TERM EDITED, 63 
command, 39 TERM FILTER, 63,64 
foreign letters, 20 TERM HARD, 63 
phonemic text, 37 TERM HOST, 63 
Speech TERM SETUP, 63 
changing rate of, 37 TERM SPEAK, 63 
commands that restart, 39 Terminal and DECtalk, 2 
control, 35 Terminal commands, 63 
enable or disable, 39 Terminal identification, 52 
stopping, 38 TEST DATA, 54 
timeout, 36 TEST HCONTROL, 54 
Square bracket commands, 2 TEST HDATA, 54 
552 (single shift 2), 29 TEST POWER, 54 
553 (single shift 3, 29 TEST. SPEAK, 54 
Standards Text, 36 
coding, 22 Timeout, 10, 36, 48-49 
Status Touch-Tone keypad, 44, 46, 49 
power-up, 52 Tracing, 58 
Status report, 55 
Status reporting, 52 U 
Stop speaking command, 38 
Stress marks, 221 Underlined text, 9 
SUB (substitute), 8 User dictionary, 2, 43 | 
Switch-hook flash, 49 deleting entries, 53, 56 | 
Synchronization status report, 44 
data, 13 
DT SYNC command, 38 V 


XON/XOFF example, 14 
VT (vertical tab), 8 


T 
X 
Telephone, 45-50 
See also Phone XOFF, 12, 13, 61 
example, 50 XON, 12, 13, 61 


keypad, 47, 48 

management command, 46 
replies, 47 

status messages, 47 
Telephone control parameters, 74 
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